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

Jimmy

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

[AppleScript] 纯文本查看 复制代码

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
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)
是这样吧，刚刚查的<a>是超链接