Question

我正在开发一个可以显示传单地图的闪亮应用程序。我正面临与本主题相同的情况： Change Leaflet Map Dynamically based on Multiple Reactive expressions

我试图根据多个输入选择对数据框进行子集化，以创建动态映射。但是我没有成功处理向量长度错误“较长的对象长度不是较短的对象长度的倍数”。在另一个主题中，通过将“ ==”运算符更改为“％in％”已解决了该问题，但在我的情况下则未解决。

我的代码：


all_year <- sort(unique(sample_testsf$annee))
all_area <- sort(unique(sample_testsf$nomzone))

ui <- fluidPage(
    titlePanel("AgriPAG"),
    sidebarLayout(
        position = "right",
        mainPanel(
            tabsetPanel(
                tabPanel("Map", leafletOutput('mymap',width = "100%", height = 1000))
            )
        ),
        sidebarPanel(
            selectInput(
                inputId = "year",
                label = "Select a year to display",
                choices = all_year,
                selected = NULL,
                multiple = TRUE,
                selectize = FALSE
            ),
            selectInput(
                inputId = "area",
                label = "Select a district",
                choices = all_area,
                selected = NULL,
                multiple = TRUE,
                selectize = FALSE
            )
        )
    )
)


server <- function(input,output){

    output$mymap <- renderLeaflet({
        leaflet(data = sample_testsf) %>%
                addTiles() %>%
                setView(lng=-52.3333300, lat=4.9333300 , zoom=5)
    })

    selectedData <- reactive({
        req(input$year)
        req(input$area)
        sample_testsf %>% 
            dplyr::filter(all_year %in% input$year & all_area %in% input$area
            )
    })

    observe({
        leafletProxy("mymap", data = selectedData()) %>%
            clearShapes() %>%
            addPolygons(weight=2, col="black", opacity=0.5) 
    })
}

shinyApp(ui = ui, server = server)

我实际上理解了为什么会发生此问题（Why do I get "warning longer object length is not a multiple of shorter object length"?），我想应该使用回收功能，但是我不知道如何设置它。有人知道如何解决这个问题吗？

Answer 1

我发现了我的错误，我在调用输入选择列表，而不是反应式函数中的所选输入。解决方案：

selectedData <- reactive({
    req(input$year)
    req(input$area)
    sample_testsf %>% 
        dplyr::filter(annee %in% input$year & nomzone%in% input$area
        )
})

R Shiny中使用多个输入的数据无功滤波

1 个答案: