我有带有URL链接的renderTable:
output$url_list <- renderTable({
url_list<-as.data.frame(urls_from_plg_table())
}, sanitize.text.function = function(x) x, target="_blank",
options = list(aLengthMenu = c(5, 30, 50), iDisplayLength = 5))
我想在闪亮的应用程序的新标签页中打开此表中的URL。
我尝试添加:target =“ _ blank”,但是这种方式不起作用。我该怎么办?
谢谢!
在data.frame中使用带有HTML标签的字符串。(并且不要忘记sanitize.text.function = function(x) x
按原样评估HTML标记)。
例如 :
shiny::runApp(list(
ui = bootstrapPage(
tableOutput("table")
),
server = function(input, output) {
output$table <- renderTable({
urls <- c("http://www.google.fr", "http://www.google.fr")
refs <- paste0("<a href='", urls, "' target='_blank'>GOOGLE</a>")
data.frame(refs)
}, sanitize.text.function = function(x) x)
}
))
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句