闪亮的 tableHTML：在单元格中显示图像

Question

我想使用 tableHTML 在闪亮的 UI 单元格中显示图像。但是，它只是显示文本。有帮助吗？

library(shiny)
a = data.frame(rows = 1:2, icons = '<img src = 
   "http://flaglane.com/download/american-flag/american-flag-graphic.png"  
    alt="Red Flag Warning"  height="30" width="40" >')



  shinyApp(
     ui = fluidPage(
      fluidRow(

  br(),
  column(width = 1),
  tableHTML_output("mytable"))
    ), 
 server = function(input, output) {
  output$mytable <- render_tableHTML( 
    tableHTML(a)
  )}
 )

这是我运行代码后显示的内容：

Answer 1

这是 known issue 与 tableHTML 的关系，将在下一版本中修复。目前（你的 link 似乎没有指向图片，所以我将使用 w3school 中的一张）你可以使用这个：

library(shiny)
library(tableHTML)
a = data.frame(rows = 1:2, icons = '<img src = 
               "https://www.w3schools.com/images/w3schools_green.jpg"  
               alt="Red Flag Warning"  height="30" width="40" >')



shinyApp(
 ui = fluidPage(
  fluidRow(

   br(),
   column(width = 1),
   tableHTML_output("mytable")) 

 ), 
 server = function(input, output) {
  output$mytable <- render_tableHTML( 
   tableHTML(a) %>%
    replace_html(pattern = '&#60;', '<', replace_all = TRUE) %>%
    replace_html(pattern = '&#62;', '>', replace_all = TRUE)
  )}
)

输出：

闪亮的 tableHTML：在单元格中显示图像

tableHTML in shiny: show an image in a cell

r

shiny

tablehtml