Rshiny中的错误：“0”；缺少参数，没有默认值"；

我刚刚开始发现Rshiny，在玩了一周后，我尝试创建一个地图，由于“selectizeInput”功能，我只能显示某些多边形

我原以为我能做到这一点，多亏了下面的脚本，但实际上我遇到了一个我无法解决的错误“argumentmissingswithnotdefault”

有人能告诉我我做错了什么吗

ui <- dashboardPage(
  dashboardHeader(title ="Draft_1"),
  dashboardSidebar(
    sidebarMenu(
      menuItem("Map", tabName = "counties", icon = icon('info')),
    )
  ),
  


dashboardBody(
                      
tabItems(
                               
tabItem(tabName = "counties",
           fluidRow(selectizeInput("COUNTIES_ID", choices = shapefile1, selected="NONE"))
           ),
           
           fluidRow(leafletOutput("map-test", height = 500)),
           )))
  

server <- function(input, output){
  
  updateSelectizeInput(session, 
                      "COUNTIES_ID",
                      choices = shapefile1,
                      options = list(maxOptions = 1000),
                      selected = "45FDG)
  
  output$map-test<-renderLeaflet(
    leaflet(shapefile1) %>%
      setView(1.45, 43.52, zoom = 12) %>%
      addTiles()  %>% 
      addPolygons(fillColor = "blue",
                  weight = 2,
                  opacity = 1,
                  color = "white",
                  dashArray = "3",
                  fillOpacity = 0.3,
                  highlight = highlightOptions(
                    weight = 5,
                    color = "#666",
                    dashArray = "",
                    fillOpacity = 0.7,
                    bringToFront = TRUE),
                  layerId = ~COUNTIES_ID)
  )}
  
  
  


shinyApp(ui, server)

ui删除以下内容末尾的
，
：

sidebarMenu(
      menuItem("Map", tabName = "counties", icon = icon('info')),
    )

此
，
使
侧边栏菜单
期望找到另一个未找到的项目。
不确定这是否是问题所在，但您在
更新选择输入
后的
45FDG
中缺少一个结束报价。它应该是“45FDG”而不是“45FDGThanks Waldi，很抱歉这个愚蠢的问题！：（现在我有一个新的错误消息：“没有方法将这个S4类强制为向量。”“。这是否意味着我的shapefile太大，我将使用.RDS文件来代替？很难说，因为您没有提供shapefile 1的定义。但是，我怀疑您能否将shapefile 1用作
selectizeInput（“countries\u ID”，choices=shapefile 1，selected=“NONE”）
和as
传单（shapefile 1）