【问题标题】:Shiny not rendering html闪亮的不呈现html
【发布时间】:2018-03-23 13:10:37
【问题描述】:

我正在尝试在闪亮的应用程序上创建指向表格上的图像的链接,但闪亮的 HTML 将 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 &lt;- count + 1
}

两个示例在桌子上产生相同的结果。

&lt;a href= site.com.png id = "logo" target="_blank" class="btn btn-primary"&gt; site.com &lt;/a&gt;

【问题讨论】:

  • 使用完整的可重现示例会更容易理解...您如何呈现链接?你为什么用as.String
  • 因为当我没有时,这是输出 [[1]] [1] "a" [[2]] [1] "a" [[3]] [1] "a " [[4]] [1] "a" [[5]] [1] "a" [[6]] [1] "a"
  • 我也试过这个links[count] &lt;- HTML('&lt;a href= ',ref,' id = "logo" target="_blank"&gt;',link_name,'&lt;/a&gt;')
  • 您只需在ui 中执行tags$a(href=ref,link_name)
  • 我们怎么能猜到呢?请编辑您的帖子,提出一个明确的问题,并附上一个可重复的最小示例,以及您到目前为止所做的事情。这是获得帮助的方式。

标签: html r shiny


【解决方案1】:

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

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

【讨论】:

    猜你喜欢
    • 2013-10-01
    • 1970-01-01
    • 2016-06-09
    • 2018-09-24
    • 2019-10-22
    • 1970-01-01
    • 2017-06-04
    • 2016-09-13
    • 1970-01-01
    相关资源
    最近更新 更多