下面的代码一直运行良好,直到我升级我的闪亮.现在它只打印出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链接.
任何帮助,非常感谢.
renderDataTable 中的 escape 参数需要设置为 FALSE。我假设此版本中的默认值已更改。导致我的代码被破坏。通过将转义参数显式设置为 FALSE,此问题已得到修复。
归档时间: |
|
查看次数: |
737 次 |
最近记录: |