Гиперссылка не работает с черточками в datatable в Shiny - PullRequest
Новая
       9

Гиперссылка не работает с черточками в datatable в Shiny

0 голосов
/ 24 января 2019

В блестящем приложении я показываю таблицу, где в столбце должны быть ссылки на разные сайты, называемые «информация». Но я обнаружил, что это не работает 

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) Да, второй код работает, и я заметил, что единственным отличием было то, что последний не имеет тире. Уже пробовал спринтф.

В пользовательском интерфейсе 

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