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

时间:2014-02-20 13:51:28

标签: r url tabs shiny

我有带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))

我想在我的闪亮应用中的新标签页中打开此表中的网址。

我尝试添加:target =“_ blank”,但它不能以这种方式工作。 我怎么能去做呢?

谢谢!

1 个答案:

答案 0 :(得分:10)

在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)

  }
))