如何将闪亮的数据表渲染为链接

Question

假设我有一列data.frame，其中包含一个url列表，例如

urlCol
http://mysite1.com
http://mysite2.com

如何将其设置为renderDataTable中的可点击链接？

TIA

Answer 1

网址可以包含在锚标记中：

library(shiny)
runApp(
  list(ui = fluidPage(
    dataTableOutput("myTable")
  )
  , server = function(input, output, session){
    output$myTable <- renderDataTable({
      data.frame(name = c("GOOGLE", "YAHOO")
                 , url = c("<a href=\"http://www.google.com\">http://www.google.com</a>"
                           , "http://yahoo.com")
                           )
    })
  })
)