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

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

我尝试添加：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)

  }
))

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

1 个答案: