r - r - 串扰过滤器无法过滤带有共享数据的传单图

Question

我正在尝试创建一个 Rmarkdown 报告，其中将有一个下拉列表和一个地图。选择值时，下拉列表应过滤地图，但由于某种原因，它不起作用。任何帮助表示赞赏：

---
title: "test"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
---

library(dplyr)
library(leaflet)
library(crosstalk)
library(flexdashboard)
library(sf)
library(sp)

dt <- data.frame(ab = c(1,1,2,2),
                 lon = c(1,2,3,4),
                 lat = c(5,4,3,2)) %>% 
  st_as_sf(coords = c("lon", "lat"), crs = 4326) %>% 
  group_by(ab) %>% 
  summarise(do_union = F) %>% 
  st_cast("LINESTRING")
sd <- SharedData$new(dt)

filter_select("ab",
              "AB text",
              sd,
              ~ ab)

leaflet(data = sd) %>% 
  addTiles() %>% 
  addPolylines(color = "#D2691E")