Question

在一个闪亮的应用程序中，我正在显示一个表格，其中一列必须具有指向不同网站的链接，称为“信息”。但是我发现这不起作用

tagList( as.character(a("info",href="https://plus.google.com/communities/107454103091776894629/stream/c37ddecb-dd31-4a62-bfe0-5d48d9309b8b")))

但这确实可以，正确显示了超链接

tagList( as.character(a("info",href="https://plus.google.com/communities/107454103091776894629/")))

它包含在一个闪亮应用程序的DT :: renderDataTable中（带有escape = FALSE）是的，第二个代码有效，我注意到一个区别是最后一个没有破折号。已经尝试过sprintf。

在用户界面

ui <- fluidPage(fluidRow(
  column(width = 12,
         div(dataTableOutput("web_scraped"), style = "font-size:70%")
  ))
)

同时服务器拥有

server <- function(input, output, session) {
  output$web_scraped <- DT::renderDataTable(
      DT::datatable({
        data.frame("test"=HTML( as.character(a("info",href="https://plus.google.com/communities/107454103091776894629/"))),stringsAsFactors = FALSE)
      },escape = FALSE))
}
shinyApp(ui = ui, server = server)

我需要成为

server <- function(input, output, session) {
output$web_scraped <- DT::renderDataTable(
  DT::datatable({
    data.frame("test"=HTML( as.character(a("info",href="https://plus.google.com/communities/107454103091776894629/stream/c37ddecb-dd31-4a62-bfe0-5d48d9309b8b"))),stringsAsFactors = FALSE)
  },escape = FALSE))
}
shinyApp(ui = ui, server = server)

超链接不适用于Shiny数据表中的破折号

0 个答案: