基于R语言的shiny网页工具开发小技巧系列-03

六年前还在上海工作的时候，机缘巧合接触了使用R语言的shiny体系搭建网页工具的技术，就一直身体力行的在我们生物信息学圈子里面推广它。

自己一个人能做的很有限，很庆幸这些年有各式各样的小伙伴加入我们《生信技能树》小圈子，一起建设shiny知识体系。最近有空，就安排实习生整理了一下我们的生信技能树论坛上面的shiny板块的一些笔记：

3-显示一个带链接的列表用escape = FALSE

显示一个带链接的列表用：escape = FALSE例子如下：

library(shiny)
createLink <- function(val) {
  sprintf('<a href="https://www.google.com/#q=%s" target="_blank" class="btn btn-primary">Info</a>',val)
}
ui <- (dataTableOutput('mytable'))
server <- function(input, output) {
  output$mytable <- renderDataTable({
 my_table <- cbind(rownames(mtcars), mtcars)
 colnames(my_table)[1] <- 'car'
 my_table$link <- createLink(my_table$car)
 return(my_table)
  }, escape = FALSE)
}
shinyApp(ui, server)


escape=FALSE参数的意义是什么？改成escape=TRUE试试

可以直接使用 ?dataTableOutput 查看帮助文档，对escape的解释 Whether to escape HTML entities in the table: TRUE means to escape the whole table, and FALSE means not to escape it. Alternatively, you can specify numeric column indices or column names to indicate which columns to escape, e.g. 1:5 (the first 5 columns), c(1, 3, 4), or c(-1, -3) (all columns except the first and third), or c('Species', 'Sepal.Length').

是否转义表中的HTML实体：TRUE表示转义整个表，而FALSE表示不转义整个表。或者，您可以指定数字列索引或列名称以指示要转义的列，例如 1：5（前5列），c（1、3、4）或c（-1，-3）（除第一和第三列外的所有列）或c（'Species'，'Sepal.Length' ）。

生信技能树论坛-shiny社区版块

更多资料，都在shiny社区，链接：http://www.biotrainee.com/forum-149-3.html

生信社区版块

生信技能树

• 把你的shiny网页工具部署在云服务器
• 手把手教你使用shiny创建一个网页工具（基于Windows）
• Shiny app开发， AWS上部署Shiny app，绑定域名
• ID转换大全
• 在ubuntu20上面安装R4

生信菜鸟团

• 生信技能树论坛-生信社区版块-bioconductor中文&shiny交互网页
• 我的 Shiny 入门学习笔记
• 给你的 R Shiny debug 必看指南
• Shiny, 照亮你的美
• bs4Dash | Shiny 仪表盘框架
• 盘点 Shiny 中的各种主题和 UI 插件
• Shinyforms | 用 Shiny 写一个信息收集表