R在新选项卡中闪亮地从renderTable打开URL

Question

我有带URL链接的renderTable:

output$url_list <- renderTable({
   url_list<-as.data.frame(urls_from_plg_table())
}, sanitize.text.function = function(x) x, target="_blank",
   options = list(aLengthMenu = c(5, 30, 50), iDisplayLength = 5))

我想从我的闪亮应用程序的新选项卡中打开此表中的URL.

我尝试添加:target ="_ blank",但它不能以这种方式工作.我该怎么办呢？

谢谢!

Answer 1

在data.frame中使用带有HTML标记的字符串.(并且不要忘记sanitize.text.function = function(x) x按原样评估HTML标记).

例如 :

shiny::runApp(list( 
  ui = bootstrapPage(

    tableOutput("table")

    ),

  server = function(input, output) {

    output$table <- renderTable({

      urls <- c("http://www.google.fr", "http://www.google.fr")
      refs <- paste0("<a href='",  urls, "' target='_blank'>GOOGLE</a>")

      data.frame(refs)

    }, sanitize.text.function = function(x) x)

  }
))