闪亮不渲染html

Question

我正在尝试在闪亮的应用程序的桌面上创建指向图像的链接，但闪亮地将HTML显示为原始文本。链接是超过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

我需要做的就是将escape设置为false

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