clearShapes()不工作--R的传单()
我不明白为什么我的传单程序中没有使用clearShapes()不工作--R的传单(),r,shiny,leaflet,R,Shiny,Leaflet,我不明白为什么我的传单程序中没有使用clearshapes()。我正在尝试删除现有的圆圈,并替换为根据我的输入复选框选择的类别。然而,所发生的事情是,新的圆圈被覆盖在现有圆圈之上 以前有人遇到过这种情况吗 df = read.csv("mappingData.csv",header=T, sep =",") ui = fluidPage( checkboxGroupInput("set", label = "Pothole Reported by:",
clearshapes()
。我正在尝试删除现有的圆圈,并替换为根据我的输入复选框选择的类别。然而,所发生的事情是,新的圆圈被覆盖在现有圆圈之上
以前有人遇到过这种情况吗
df = read.csv("mappingData.csv",header=T, sep =",")
ui = fluidPage(
checkboxGroupInput("set", label = "Pothole Reported by:",
choices = list("Citizens Connect App" = "Citizens Connect App",
"City Worker App" = "City Worker App",
"Constituent Call" = "Constituent Call",
"Self Service" = "Self Service",
"Employee Generated" = "Employee Generated",
"Not Available (Cambridge)" = "")),
verbatimTextOutput("value"),
leafletOutput("map")
)
server <- function(input, output) {
filteredDataCheck <- reactive({
# subset(df, Source == input$set)
print(input$set)
})
output$value <- renderPrint ({ filteredDataCheck() })
filteredData <- reactive({
df[as.character(df$Source) == input$set, ]
})
output$map <- renderLeaflet ({
leaflet(df) %>%
setView(-71.083, 42.353, 13) %>%
addProviderTiles("Stamen.TonerLite", options = providerTileOptions(noWrap=T))
})
observe({
leafletProxy("map", data = filteredData() ) %>% clearShapes() %>%
addCircles(radius = 1, color = "red", group = "circles") %>% clearShapes()
})
}
shinyApp(ui = ui, server = server)
df=read.csv(“mappingData.csv”,header=T,sep=“,”)
ui=fluidPage(
checkboxGroupInput(“设置”,label=“报告的坑洞:”,
选项=列表(“公民连接应用程序”=“公民连接应用程序”,
“城市工作者应用程序”=“城市工作者应用程序”,
“成分调用”=“成分调用”,
“自助服务”=“自助服务”,
“员工生成”=“员工生成”,
“不可用(剑桥)”=“”),
逐字输出(“值”),
单张输出(“地图”)
)
服务器%clearShapes()
})
}
shinyApp(用户界面=用户界面,服务器=服务器)
当filteredData()
为空时,似乎出现了问题。您可以尝试添加if/else:
if(nrow(filteredData())==0) { leafletProxy("map") %>% clearShapes()}
else {
leafletProxy("map", data = filteredData() ) %>% clearShapes() %>%
addCircles(radius = 1, color = "red", group = "circles")
}
此外,如果您希望所有数据点都具有选定的源
,您可能希望在筛选中使用%中的%而不是=
:
df[as.character(df$Source) %in% input$set, ]
很好-非常感谢你。这很有效。但是,我想知道您是否知道有什么简单的方法可以让clearShapes()只在从列表中删除给定项时才清除。现在,当添加一个新项目时,所有的形状都会被清除,因此在添加一组新的形状时,清除形状会很困难。谢谢!这是众所周知的问题还是应该报告?