infobox（textOutput（“ state”））中的错误：找不到函数“ infobox”

Question

我想在信息框中显示textOutput。 我遇到错误：

  

infobox（textOutput（“ state”））中的错误：找不到函数“ infobox”。

我的代码：

library(shiny)
ui <- shinyUI(fluidPage(
titlePanel("Bus late time"),
sidebarLayout(
sidebarPanel(
selectInput("statenames", "select the state", c("b1", "b2","b3"))),
mainPanel(
infobox(textOutput("state"))))))
server <- shinyServer(function(input, output){
output$state <- renderText(input$statenames)
})
shinyApp(ui,server)

Answer 1

infoBox是shinydashboard软件包的一部分。要在用户界面中使用它，可以在定义用户界面之前加载shinydashboard。

library(shiny)
library(shinydashboard)

ui <- shinyUI(fluidPage(
  titlePanel("Bus late time"),
  sidebarLayout(
    sidebarPanel(
      selectInput("statenames", "select the state", c("b1", "b2","b3"))),
    mainPanel(
      infoBox(textOutput("state"))
    )
  )
))

server <- shinyServer(function(input, output){
  output$state <- renderText(input$statenames)
})

shinyApp(ui,server)

如果要动态更新valueBox的内容，则可以考虑使用renderInfoBox/infoBoxOutput而不是renderText/txtOutput。