Html R闪亮的应用程序加载，但单选按钮无法正确选择值

这是我第一次使用堆栈溢出，所以如果我做错了，我深表歉意

我对用R编写代码相当陌生，我正试图使用数据集制作一个简单的闪亮应用程序。我想制作一张地图，用点显示不同类型的水系统（“水技术”）和单选按钮来选择地图上绘制的水系统类型。我在加载应用程序时没有出现错误消息，但是无论选择哪个按钮，所有不同类型的供水系统都会绘制在地图上，而不仅仅是我选择的那个（基本上，按钮不起作用）。如果有人知道是什么导致了这一切，我将不胜感激

可复制代码：

###加载库
图书馆（闪亮）
#>警告：包“shiny”是在R版本4.0.4下构建的
图书馆（shinythemes）
#>警告：“shinythemes”软件包是在R版本4.0.4下构建的
图书馆（tidyverse）
#>警告：包“ggplot2”是在R版本4.0.5下生成的
#>警告：程序包“tibble”是在R版本4.0.5下生成的
#>警告：包“tidyr”是在R版本4.0.5下构建的
#>警告：包“dplyr”是在R版本4.0.5下生成的
图书馆（这里）
#>here（）从C:/Users/eruks/AppData/Local/Temp/Rtmp2jxqLH/reprex-2a306cec2120-white-boto开始
图书馆（rnaturalearth）
#>警告：程序包“rnaturalearth”是在R版本4.0.5下生成的
图书馆（RNATuralLearthData）
#>警告：程序包“rnaturalearthdata”是在R版本4.0.5下生成的
图书馆（sf）
#>警告：包“sf”是在R版本4.0.5下生成的
#>链接到GEOS 3.9.0、GDAL 3.2.1、项目7.2.1
###加载数据
水
#>--柱规格--------------------------------------------------------
#>科尔斯(
#>行id=列双精度（），
#>lat_deg=col_double（），
#>lon_deg=col_double（），
#>报告日期=列字符（），
#>status\u id=col\u character（），
#>水源=柱字符（），
#>water\u tech=col\u character（），
#>设施类型=列字符（），
#>国家/地区名称=列字符（），
#>安装年份=双柱（），
#>安装程序=列字符（），
#>pay=col_character（），
#>状态=列字符（）
#> )
###用户界面
ui%
选择（2,3,7,9）%>%
过滤器（经度>25和经度<52和经度>40和经度<35）
未找到非洲幻影。您可以使用webshot:：install_phantomjs（）安装它。如果已安装，请确保可以通过PATH变量找到phantomjs可执行文件。
```
静态R标记文档中不支持闪亮的应用程序
由[reprex软件包]于2021-05-05创建(https://reprex.tidyverse.org)（v2.0.0）```
谢谢：）

rwater（）

在此代码中无效：

    rwater() %>%
        ggplot() +
        geom_sf(data = africa,
                fill = "#ffffff") +
        geom_point(data = water_clean,
                   aes(x = lon_deg,
                       y = lat_deg,
                       color = water_tech))

因为您在

geom\u点

中输入了

water\u clean

数据

我想你想要：

        ggplot() +
        geom_sf(data = africa,
                fill = "#ffffff") +
        geom_point(data = rwater(),
                   aes(x = lon_deg,
                       y = lat_deg,
                       color = water_tech))

---

这成功了，谢谢！