r如何在shiny app中加载网络图片:
library(\"shiny\")
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(),
dashboardSidebar(),
dashboardBody(
fluidRow(
box(title =\"Demo1\",status = \"warning\",solidHeader = TRUE,
tags$img(src = \"https://www.jingege.wang/wp-content/uploads/2020/05/mmexport1497442466586-scaled-1.jpg\",width=500)
),
box(title =\"Demo2\",status = \"primary\",solidHeader = TRUE,
uiOutput(outputId = \"image\")
)
)
)
)
server <- function(input, output) {
output$image <- renderUI({
tags$img(src = \"https://www.jingege.wang/wp-content/uploads/2020/05/mmexport1497442466586-scaled-1.jpg\",width=500)
})
}
shinyApp(ui = ui, server = server)
![图片[1]-R Shiny: RenderImage from www—科研工具箱-叨客学习资料网](https://cdn.leobba.cn/wp-content/uploads/image-3-1024x501-1.png~tplv-vsxgrxnt6c-1.image)
© 版权声明
THE END
暂无评论内容