renderImage未显示-R闪亮（仅alt文本）

使用下面的代码，我只显示alt文本。 对可能出现的问题有什么建议吗

从服务器.R：

output$face <- renderImage({
list(src = "http://www.clipartbest.com/cliparts/yco/GGE/ycoGGEacE.png",
filetype = "image/png",
alt = "YOU MUST BE KIDDING ME!")
}, deleteFile = FALSE)

谢谢

查德

补充问题的解释——我不仅仅是想显示图像。相反，我正试图使其反应-并显示一个不同的图像，基于输入。。。根据下面的服务器.R代码：

output$imagegauge <- renderImage({
if (is.null(IRR_calc()))
return(NULL)

if (IRR_calc() > .085) {
return(list(
src = "http://www.i2symbol.com/images/abc-123/o/white_smiling_face_u263A_icon_256x256.png",
contentType = "image/png",
alt = "Smiley Face"
))
} else  {
return(list(
src = "http://www.clipartbest.com/cliparts/yco/GGE/ycoGGEacE.png",
filetype = "image/png",
alt = "Sad Face"
))
}
}, deleteFile = FALSE)

输出$imagegauge.085）{
返回（列表）(
src=”http://www.i2symbol.com/images/abc-123/o/white_smiling_face_u263A_icon_256x256.png",
contentType=“image/png”，
alt=“笑脸”
))
}否则{
返回（列表）(
src=”http://www.clipartbest.com/cliparts/yco/GGE/ycoGGEacE.png",
filetype=“image/png”，
alt=“悲伤的脸”
))
}
}，deleteFile=FALSE）

再次感谢

---

Chad

renderImage

将文件作为

src

输入，而不是url。您可以直接使用

标记$img

包含此图像：

library(shiny)
runApp(list(
  ui = fluidPage(
    titlePanel("Hello Shiny!"),
    sidebarLayout(
      sidebarPanel(
        numericInput('n', 'Number of obs', 100),
        numericInput('m', 'Select image (Happy (1) or Sad(2))', 1, min = 1, max = 2),
        uiOutput('test')
      ),
      mainPanel(
        plotOutput('plot')
      )
    )
  ),
  server = function(input, output) {
    output$plot <- renderPlot({ hist(runif(input$n)) })
    output$test <- renderUI({
      images <- c("http://www.i2symbol.com/images/abc-123/o/white_smiling_face_u263A_icon_256x256.png"
                  , "http://www.clipartbest.com/cliparts/yco/GGE/ycoGGEacE.png")
      tags$img(src= images[input$m])

    })
  }
))

库（闪亮）
runApp（列表(
ui=fluidPage(
titlePanel（“你好，闪亮！”），
侧边栏布局(
侧栏面板(
数字输入（'n'，'OB数'，100），
数字输入（'m'，'选择图像（快乐（1）或悲伤（2））'，1，最小值=1，最大值=2），
uiOutput（'测试'）
),
主面板(
plotOutput（'plot'）
)
)
),
服务器=功能（输入、输出）{
输出$plot谢谢。不过，我的请求有点过于简单。我不仅仅是想显示图像。我需要图像是反应式的——根据输入显示不同的图像。因此，我将在后续操作中添加更多代码：@cnblevins我已经更新了我的答案。您仍然只需要使用
img$src
就可以创建动态图像e使用
renderUI
和
uiOutput
。在您的示例中，内部返回率将触发要显示的图像。
library(shiny)
runApp(list(
  ui = fluidPage(
    titlePanel("Hello Shiny!"),
    sidebarLayout(
      sidebarPanel(
        numericInput('n', 'Number of obs', 100),
        numericInput('m', 'Select image (Happy (1) or Sad(2))', 1, min = 1, max = 2),
        uiOutput('test')
      ),
      mainPanel(
        plotOutput('plot')
      )
    )
  ),
  server = function(input, output) {
    output$plot <- renderPlot({ hist(runif(input$n)) })
    output$test <- renderUI({
      images <- c("http://www.i2symbol.com/images/abc-123/o/white_smiling_face_u263A_icon_256x256.png"
                  , "http://www.clipartbest.com/cliparts/yco/GGE/ycoGGEacE.png")
      tags$img(src= images[input$m])

    })
  }
))