通过 "R Projects for Dummies" 和 运行 进入错误消息

Question

正如标题所说。我输入的代码与书中完全一样，但我 运行 进入此错误消息：“shiny::tabsetPanel(..., id=id, selected = selected) 中的错误：缺少参数，没有默认设置

我不知道缺少什么。

代码如下：

library(shinydashboard)

ui<- dashboardPage(
    dashboardHeader(title= "Uniform Distribution"),
    dashboardSidebar(),
    dashboardBody(
        fluidRow(
            column(width =6,
                box(title = "Select a Number",
                    solidHeader = TRUE,
                    background = "yellow",
                    status = "warning",
                    width = NULL,
                    height = 312,
                    sliderInput(inputId = "number",
                            label = "",
                            value = 500, min = 25, max = 1000)),
                box(
                    background= "light-blue",
                    solidHeader = TRUE,
                    status ="primary",
                    title = "Histogram",
                    width = NULL,
                    plotOutput("hist", height = 250))),
            
            column(width = 6,
                   tabBox(
                       title ="Central Tendency",
                       id ="tabs1", height = 120, width =NULL,
                       tabPanel("Mean", h2(textOutput("meantext")),width=NULL),
                       tabPanel("Median", h2(textOutput("mediantext")),width=NULL),
                   ),
                   
                   tabBox(
                       title ="Variability",
                       id ="tabs2", height = 120, width =NULL,
                       tabPanel("Variance", h2(textOutput("vartext")),width=NULL),
                       tabPanel("Standard Deviation", h2(textOutput("sdtext")),width=NULL))
        )
    )
))

server <- function(input,output){
    histdata <- reactive({runif(input$number, min=0, max = 1)})
    output$hist <- renderPlot({
        hist(histdata(), xlab = "Value",
             main= paste(input$number,"random values between 0 and 1"))
    })
    
    output$meantext <- renderText({
        paste("Mean =", round(mean(histdata()),3))})
    
    output$mediantext <- renderText({
        paste("Median =", round(median(histdata()),3))})
    
    output$vartext <- renderText({
        paste("Variance =", round(var(histdata()),3))})
    
    output$sdtext <- renderText({
        paste("Standard Deviation =", round(sd(histdata()),3))})
}

shinyApp(ui, server)

Answer 1

您在 tabsetPanel 之外还有 tabPanel。您的 tabPanels 需要包裹在 tabsetPanel() 或 navBarPage()

内

见下文：

ui<- dashboardPage(
  dashboardHeader(title= "Uniform Distribution"),
  dashboardSidebar(),
  dashboardBody(
    fluidRow(
      column(width =6,
             box(title = "Select a Number",
                 solidHeader = TRUE,
                 background = "yellow",
                 status = "warning",
                 width = NULL,
                 height = 312,
                 sliderInput(inputId = "number",
                             label = "",
                             value = 500, min = 25, max = 1000)),
             box(
               background= "light-blue",
               solidHeader = TRUE,
               status ="primary",
               title = "Histogram",
               width = NULL,
               plotOutput("hist", height = 250))),
      
      column(width = 6,
             tabBox(
               title ="Central Tendency",
               id ="tabs1", height = 120, width =NULL,
               tabsetPanel(
                 tabPanel("Mean", h2(textOutput("meantext")),width=NULL),
                 tabPanel("Median", h2(textOutput("mediantext")),width=NULL)
               )
               
             ),
             
             tabBox(
               title ="Variability",
               id ="tabs2", height = 120, width =NULL,
               tabsetPanel(
                 tabPanel("Variance", h2(textOutput("vartext")),width=NULL),
                 tabPanel("Standard Deviation", h2(textOutput("sdtext")),width=NULL)
               )
               )
      )
    )
  ))