首页 > 解决方案 > 如何在闪亮应用程序的信息框中显示图像?

问题描述

我正在尝试将图像放入infoBoxshinyApp 的内部。

我收到此错误:

ShinyUI(dashboardPage,dashboardHeader(“ABC”),dashboardBody(fluidPage(h1(“type”))中的错误:未使用的参数(dashboardHeader(“ABC”),dashboardBody(fluidPage(h1(“type”),mainPanel(tabsetPanel( tabPanel(h1("summary"), infoBox("BCD", a, div(img(src = "ribbon.PNG", width = 100), style = "text-align: center;"))))))) ))

代码:

library(shiny)
library(shinydashboard)
a  = 45
ui < - shinyUI(dashboardPage,
           dashboardHeader("ABC"),
           dashboardBody(fluidPage(h1("type"),
             mainPanel(
               tabsetPanel(
                 tabPanel(h1("summary"), 
                         infoBox("BCD", a, div(img(src = "ribbon.PNG", 
                         width = 100), style = "text-align: center;"))))))))
server <- shinyServer({})
shinyApp(ui, server)

谁可以帮我这个事?

标签: rshiny

解决方案


img.png在文件夹中设置一个图像,www然后下面的代码工作:

library(shiny)
library(shinydashboard)
a <- 45

ui <-   shinyUI(
    dashboardPage(
        dashboardHeader(title = "ABC"),
        dashboardSidebar(),
        dashboardBody(
            fluidPage(
                infoBox("BCD", a, div(img(src = "img.png", width = 100), style = "text-align: center;"))
            )
        )
    )
)

server <- function(input, output) {}

shinyApp(ui = ui, server = server)

推荐阅读