R Shiny 显示输出外部托管图像

在R Shiny中，我们可以通过使用一些简单的代码来显示外部托管的图像。这为我们提供了一种在Shiny应用程序中展示图像的便捷方式，而不需要将图像文件直接嵌入到应用程序中。

R
library(shiny)
ui <- fluidPage(
  titlePanel("显示外部托管图像"),
  
  sidebarLayout(
    sidebarPanel(
      # 添加一个输入框，让用户输入图像的URL
      textInput("imageUrl", "图像URL", placeholder = "输入图像的URL")
    ),
    
    mainPanel(
      # 使用img标签来显示图像
      tags$img(id = "myImage", src = "", height = "300px", width = "300px")
    )
  )
)
server <- function(input, output) {
  # 当输入框的值发生变化时，更新图像的src属性
  observeEvent(input$imageUrl, {
    output$myImage <- renderUI({
      tags$img(id = "myImage", src = input$imageUrl, height = "300px", width = "300px")
    })
  })
}
shinyApp(ui, server)