闪亮的 selectInput 仅在 multiple = TRUE

大佬教程收集整理的这篇文章主要介绍了闪亮的 selectInput 仅在 multiple = TRUE，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

如何解决闪亮的 SELEcTinput 仅在 multiple = TRUE？

我正在尝试使用 SELEcTinput 创建公交路线地图，该地图允许用户选择一条或多条路线，然后显示在地图上（使用 mapBox）。我已将“multiple”参数设置为 TRUE，以便用户可以选择多条路线。但是，出于某种原因，这并未转换为地图，它仅显示选择中的第一条路线。例如，如果用户选择路线 A、B 和 C，则地图上仅显示路线 A。

我添加了一个文本输出来测试是否整个输入都被记录下来了，而且看起来确实如此。所以，当用户输入 A、B、C 路线时，输出文本框确实显示“A B C”，但地图仍然只显示路线 A。

不确定我哪里出错了，在我看来，我对空间数据集的过滤器命令应该可以工作，所以我不确定为什么会出现这种差异。我已经尝试了 SELEctize = TRUE 和 falSE，但都遇到了同样的问题。

我的代码：

ui <- fluIDPage(
  
  fluIDRow(
    column(wIDth = 12,verbatimtextoutput("test"),#test text output to see what the inputted routes are
  
      sIDebarLayout(
        sIDebarPanel = sIDebarPanel(SELEcTinput("routeBox","Filter by route: ",routes,multiple = TRUE,SELEctize = TRUE),wIDth = 2),mainPanel = mainPanel(mapdeckOutput(
                      outputID = 'mymap',height = '500px'),wIDth = 10)
                   )
            )
          )
)


server <- function(input,output,session){
  output$mymap <- rendermapdeck({
    m
  })
  
  output$test<- renderText({ input$routeBox })
   
  df_reactive <- reactive({
    route <- input$routeBox
    
    #filter by SELEcted routes
    return(
      data %>% filter(ROUTE_ID %in% routE) 
    )
  })
  
  observeEvent({input$routeBox},{mapdeck_update(map_ID = 'mymap') %>%
        add_line(
          data = df_reactive(),layer_ID = "arc_layer",origin = "geometry.x",desTination = "geometry.y",tooltip = "tooltip",stroke_opacity = opacity_var,stroke_wIDth = "thickness",stroke_colour = color_var,palette = palette_var,update_vIEw = falSE
          )
      }
    )
}

shinyApp(ui=ui,server=server)

解决方法

df_reactive <- reactive({
      data %>% filter(ROUTE_ID %in% input$routeboX) 
})

df_reactive <- reactive({
   data[data$ROUTE_ID %in% input$routebox,] 
})

大佬总结

以上是大佬教程为你收集整理的闪亮的 selectInput 仅在 multiple = TRUE全部内容，希望文章能够帮你解决闪亮的 selectInput 仅在 multiple = TRUE所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。