如何解决全部在闪亮的选择输入中
enter image description here我有一张闪亮的地图，我需要在其中过滤掉土著和非土著人民。但我还需要过滤掉所有土著和非土著人民。我正在使用选择输入。
filtered <- reactive({
filter(places_df,INDIGENA == input$INDIGENA)
if(input$INDIGENA =='ALL')
places_df
})
output$MapPlot1 <- renderLeaflet({
leaflet(data = filtered())%>%
setView(-51.127166,-4.299999,10)%>%
addTiles()%>%
addMarkers(popup = paste0(places_df$ID.GRUPO.FAMILIAR,"</br>",places_df$LOCALIDADES))
})
observe(
leafletProxy("MapPlot1",data = filtered ())%>%
clearMarkers()%>%
addMarkers(popup = paste0(places_df$ID.GRUPO.FAMILIAR,places_df$LOCALIDADES))
)
解决方法
与函数类似，反应导体返回其主体的最后一条语句。如果 input$INDIGENA 不等于 'ALL'，则语句
if(input$INDIGENA == 'ALL'){
places_df
}
计算结果为 NULL。
试试：
filtered <- reactive({
if(input$INDIGENA == 'ALL'){
places_df
}else{
filter(places_df,INDIGENA == input$INDIGENA)
}
})
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。