Shiny不渲染html

Question

我正在尝试创建一个链接到一个闪亮的应用程序上的表格上的图像，但闪亮显示的原始text.The链接是100多个网站的屏幕截图。我想在表中添加到每个站点的链接。我遗漏了什么？我已经厌倦了这些方法。

示例1：

ref <- paste(l, '.png',sep = "")

link <- as.String(tags$a(href= ref,link_name))

示例2。

links <- NULL

count <- 1 for(l in all_sites)

{ link_name <- l ref <- paste(l, '.png',sep = "")

links[count] <- HTML('<a href=',ref,'id = "logo" target="_blank" class="btn btn-primary">',link_name,'</a>')

count <- count + 1

}

这两个示例在表中产生相同的结果。

<a href= site.com.png id = "logo" target="_blank" class="btn btn-primary"> site.com </a>

Answer 1

我所需要做的就是将逸出设为false

output$table<- renderDataTable({ my_df },options =list(pageLength=10), escape = FALSE)