R 闪亮传单 - clearShapes() 不起作用？

Question

我有一个以下形式的数据集（tst_geo.csv）：

lat, lon, time
10, 20, 1
10, 20, 2
10, 20, 3
40, 40, 4
40, 40, 5
40, 40, 6
0, 0, 7
0, 0, 8
0, 0, 9

R代码：

library(shiny)
library(leaflet)
library(plyr)

ui <- fluidPage(
    sidebarLayout(
        
        sidebarPanel(
            uiOutput("slider")
        ),
        mainPanel(
            leafletOutput("map")
        )
    )
)

server <- function(input, output, session){
    
    df <- read.csv("tst_geo.csv", header=TRUE)
    df['time'] <- as.numeric(df$time)
    
    #make dynamic slider
    output$slider <- renderUI({
        sliderInput("time_span", "Time Span", step=1, min=min(df$time), 
                    max=max(df$time), value = c(min(df$time), max(df$time)))
    })
    
    filter_df <- reactive({
        df[df$time >= input$time_span[1] & df$time <= input$time_span[2], ]
    })
    
    output$map <- renderLeaflet(
        leaflet() %>% addTiles()
    )
    
    observe({
        points_df <- ddply(filter_df(), c("lat", "lon"), summarise, count = length(timestamp))
        cat(nrow(points_df))
        leafletProxy("map", data = points_df) %>% clearShapes() %>% addCircles()
    })
    
}

shinyApp(ui, server)

我有一个滑块，仅显示特定时间范围内的点。

但是，在

observe

函数内部，当我调用

clearShapes()

时，点并未被清除。

您知道为什么会发生这种情况吗？

Answer 1

在这种情况下，罪魁祸首是

renderUI()

。因为您使用了

renderUI()

，所以滑块的渲染会延迟。当观察者第一次运行时，滑块还没有出现，并且

input$time_span

最初是

NULL

，因此

filter_df()

返回一个空数据框。在这种情况下，我没有看到使用

renderUI()

的特殊原因（也许您有原因），您可以将

sliderInput()

移动到 ui.R，或者在向地图添加圆圈之前检查

if (is.null(input$time_span))

，或将

observe()

更改为

observeEvent()

（如果您使用的是最新版本的 shiny）：

observeEvent(input$time_span, {
    points_df <- ddply(filter_df(), c("lat", "lon"), summarise, count = length(timestamp))
    cat(nrow(points_df))
    leafletProxy("map", data = points_df) %>% clearShapes() %>% addCircles()
})