在最新的闪亮,HTML渲染代码中,renderDataTable中断

gun*_*una 5 r shiny

下面的代码一直运行良好,直到我升级我的闪亮.现在它只打印出html文本.不将其渲染为html

ui.R

dataTableOutput("grid")

server.R

testLinks<-function(){
serial<-(1:2)
websites<-c("www.google.com","www.yahoo.com")
Link<-paste0("<a href=\"",websites,"\" target=\"_blank\">", websites,"</a>")
df<-data.frame(serial, websites,Link)
df
}

output$grid<-renderDataTable(testLinks())
Run Code Online (Sandbox Code Playgroud)

现在它只是将链接呈现为html文本

在升级之前,它用于将它们呈现为html链接.

任何帮助,非常感谢.

gun*_*una 4

renderDataTable 中的 escape 参数需要设置为 FALSE。我假设此版本中的默认值已更改。导致我的代码被破坏。通过将转义参数显式设置为 FALSE,此问题已得到修复。