搜索
查看: 2221|回复: 1

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

[复制链接]

634

主题

1182

帖子

4030

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
4030
发表于 2017-3-16 11:31:28 | 显示全部楼层 |阅读模式
显示一个带链接的列表用: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)
你这个问题很复杂,需要打赏,请点击 http://www.bio-info-trainee.com/donate 进行打赏,谢谢
回复

使用道具 举报

64

主题

138

帖子

681

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
681
发表于 2017-6-28 22:57:53 | 显示全部楼层
#显示一个带链接的列表用: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>是超链接
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|手机版|小黑屋|生信技能树 ( 粤ICP备15016384号  

GMT+8, 2019-8-19 12:42 , Processed in 0.078965 second(s), 23 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.