相关疑难解决方法(0)

我想将 html 代码嵌入到绘图的悬停工具提示中。这是一个工作示例：

plotly::plot_ly(
  type = "pie",
  labels = "A",
  hovertext = '<i>text in italics</i>', # Renders text in italics
  hoverinfo = "text"
)

通过将文本渲染为斜体，这个 reprex 似乎工作得非常好。然而，更复杂的html代码似乎无法渲染为html，而是渲染为纯文本。就我而言，我想要的是将图像嵌入到工具提示中，如下所示：

plotly::plot_ly(
  type = "pie",
  labels = "A",
  hovertext = '<img src="https://cran.r-project.org/Rlogo.svg">', # Does not render as html
  hoverinfo = "text"
)

我尝试使用 for hovertext（或 for text，就此而言两者的工作原理相同）的其他一些值：

以纯文本形式呈现的值：

'<div><i>text in italics</i></div>'
'<div><img src="https://cran.r-project.org/Rlogo.svg"></div>',
'<img src="https://cran.r-project.org/Rlogo.svg">',
htmltools::HTML('<img src="https://cran.r-project.org/Rlogo.svg">'),
htmltools::HTML('<div><img src="https://cran.r-project.org/Rlogo.svg"></div>'),

可以肯定的是，第一个呈现为“<div>斜体文本</div>”（斜体可以）

使工具提示根本不起作用的值：

htmltools::img(src="https://cran.r-project.org/Rlogo.svg")
htmltools::div(htmltools::img(src="https://cran.r-project.org/Rlogo.svg"))
htmltools::div('<img src="https://cran.r-project.org/Rlogo.svg">')

相关帖子和可能的解决方案：

R 中使用 JavaScript 的悬停事件 …

如果图像存储在我的机器上,我似乎无法在表格中显示图像.如果图像是由URL指定的,我可以让它工作,但我不知道任何简单的方法来"提供"图像,以便可以通过URL找到它,而不是仅仅使用图像文件名并放置文件在与ui.R和server.R相同的目录中(我已经尝试将图像放在R的主目录中).我检查了输出的HTML,它看起来与成功显示存储在本地计算机上的图像的HTML文档中的HTML相同.事实上,如果我将输出HTML从闪亮的静态页面复制并保存,并将图像放在同一个目录中,然后在我的浏览器中打开它,图像就会显示出来.

我正在使用的server.R和ui.R脚本粘贴在下面.

有没有人知道一个好的解决方案或其他解决方案？

谢谢您的帮助.

server.R脚本:

#server.R
require(shiny)
shinyServer(function(input, output){
    output$mytable <- renderTable({
        dat <- data.frame(
            country = c('USA', 'China','Working directory'),
            flag = c('<img src="test.png" height="52"></img>',
                             '<img src="http://upload.wikimedia.org/wikipedia/commons/thumb/f/fa/Flag_of_the_People%27s_Republic_of_China.svg/200px-Flag_of_the_People%27s_Republic_of_China.svg.png" height="52"></img>',
                             getwd())
        )
        dat
    }, sanitize.text.function = function(x) x)
})

ui.R脚本:

require(shiny)

shinyUI(
    tableOutput('mytable')
)

我正在尝试将图像添加到R形式的数据DT包中.我想到了这个问题:如何使用DT,R和Shiny将图像嵌入到单元格中,它适用于在线图像.但是当我试图添加一个我在本地(用R它创建)的图像时,它就没有出现.这是我的问题的一个例子:

x = rnorm(1000)   
png(paste0("Graficas/test.png"))
Plot = plot(x, type = "l")
dev.off()
camino = '<img src="Graficas/test.png" height="30"></img>'
data = data.frame(0.5,camino)
datatable(data, escape = FALSE)

输出是

我无法理解为什么会发生这种情况