使用Shiny Router库遇as.vector类型转换错误及首页导航问题求助

1. 核心错误原因：代码结构嵌套混乱 #

你的server代码存在两个致命结构问题：

• output$plot和output$map被错误嵌套在output$analysis的renderUI函数内部，导致Shiny无法正确解析输出对象，触发cannot coerce type 'environment' to vector of type 'character'错误。
• router$server()调用位置错误，未处于server函数顶层作用域，导致路由功能失效，无法正常导航到首页。

2. 修复后的完整server代码 #

server <- function(input, output, session) {
  filtered_deals <- reactive({
    req(input$fromDate)
    selectedPeople <- (
      if (length(input$selectedPeople) > 0) input$selectedPeople
      else fluentPeople$key
    )
    minClosedVal <- if (isTRUE(input$closedOnly)) 1 else 0
    
    fluentSalesDeals %>%
      filter(
        rep_id %in% selectedPeople,
        date >= input$fromDate,
        date <= input$toDate,
        deal_amount >= input$slider,
        is_closed >= minClosedVal
      ) %>%
      mutate(is_closed = ifelse(is_closed == 1, "Yes", "No"))
  })
  
  # 将plot和map的输出定义移到renderUI外部（顶层作用域）
  output$plot <- renderPlotly({
    p <- ggplot(filtered_deals(), aes(x = rep_name)) + 
      geom_bar( fill = unique(filtered_deals()$color)) +
      ylab("Number of deals") +
      xlab ("Sales rep") +
      theme_light()
    ggplotly(p, height = 300)
  })
  
  output$map <- renderLeaflet({
    points <- cbind(filtered_deals()$LONGITUDE, filtered_deals()$LATITUDE)
    leaflet() %>%
      addProviderTiles(providers$Stamen.TonerLite, options = providerTileOptions(noWrap = TRUE)) %>%
      addMarkers(data = points)
  })
  
  output$analysis <- renderUI({
    items_list <- if(nrow(filtered_deals()) > 0){
      DetailsList(items = filtered_deals(), columns = details_list_columns)
    } else {
      p("No matching transactions.")
    }
    
    Stack(
      tokens = list(childrenGap = 10), horizontal = TRUE,
      makeCard("Top results", div(style="max-height: 500px; overflow: auto", items_list)),
      makeCard("Map", leafletOutput("map"))
    )
  })
  
  # 将router初始化放在server函数最后（顶层作用域）
  router$server(input, output, session)
}

3. 关键修复点说明 #

• 移出嵌套的output定义：所有output$xxx必须直接定义在server函数顶层，不能嵌套在renderUI或其他输出函数内部，否则Shiny会将其识别为非法的环境变量，触发类型转换错误。
• 修正router调用位置：router$server()必须放在所有输出定义完成后，确保路由系统正确初始化，解决页面导航失效问题。
• 简化reactive表达式：原filtered_deals中无需额外赋值给同名变量，直接返回处理后的数据集即可，优化代码可读性。

内容的提问来源于stack exchange，提问作者Mike Kollins