时间戳

首页 > 解决方案 > 信息框错误（文本输出（“状态”））：找不到函数“信息框”

r - 信息框错误（文本输出（“状态”））：找不到函数“信息框”

问题描述

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

信息框错误（文本输出（“状态”））：找不到函数“信息框”。

我的代码：

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)

标签： rshiny

解决方案

infoBox是shinydashboard包装的一部分。要在 UI 中使用它，您可以shinydashboard在定义 UI 之前加载。

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.

推荐阅读