r - 如何将 Shiny 的数据表呈现为链接

Question

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

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

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

TIA

Answer 1

网址可以包含在 anchor 标记中:

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")
                           )
    })
  })
)