R 仪表板valueBox错误长度一个字符向量

我不熟悉Shiny（一般来说是R）并尝试构建一个简单的仪表板。在第一个框中，我想根据从下拉框中选择的区域计算响应的数量

代码如下：

ui<- dashboardPage(
  dashboardHeader(title = "Performance"),
  
  
  dashboardSidebar(selectInput(inputId = "Region", label = "Region", choices = list)), 
              
  
  
  dashboardBody(
    fluidRow(
      box(valueBoxOutput(outputId = "Value1"), title = "Total Contracts"),

      
    )),

)


server <- function(input, output) { 
  
  total_responses <- Joined_data %>%
    group_by(`New Region`) %>%
    tally()
 
  
  
  output$Value1 <- renderValueBox({
  valueBox(total_responses, input$Region)

  })
  
  }

shiny::shinyApp(ui=ui,server=server)

请在您的问题中发布一些示例数据，以便我们可以复制您的问题。同时，在
valueBox中尝试
req（）
（总响应，req（输入$Region））