下面的代码一直运行良好,直到我升级我的闪亮。现在它只打印出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())
现在它只是将链接呈现为html文本
在升级之前,它用于将它们呈现为html链接。
任何帮助,非常感谢。
答案 0 :(得分:4)
renderDataTable中的escape参数需要设置为FALSE。我假设此版本中的默认值已更改。导致我的代码破裂。通过将escape paramater显式设置为FALSE,已修复此问题。