Брошюра setview (), чтобы посмотреть на карту округа

Question

Привет всем экспертам,

Я очень плохо знаком с R и листовкой

Я хотел бы создать блестящую панель инструментов, и внутри нее я хочу создать карту с листовкой.Вот как я хочу, чтобы это было: сначала пользователь выберет штат, затем вы можете или не можете выбрать округ.Поэтому, если они выбирают штат, я хотел бы использовать setview (), чтобы просто посмотреть на выбранное состояние, а если они выбирают штат и округ, то setview (), чтобы посмотреть выбранный округ.

ТакВо-первых, я хочу убедиться, что мой буклет-код работает первым, прежде чем я вставлю его в блестящий сервер.Поэтому я запустил следующий код, предполагая, что пользователь выбирает штат Калифорния и округ Лос-Анджелес.

Я получил следующую ошибку и не уверен, как ее исправить.

Есть предложения?Огромное спасибо заранее!

Error in cut.default(x, binsToUse, labels = FALSE, include.lowest = TRUE,  : 
  'breaks' are not unique

> head(lonlat)
  STATE            COUNTY         county.State       lon      lat
1    AK   KENAI PENINSULA   KENAI PENINSULA,AK -151.3044 60.58293
2    AK         ANCHORAGE         ANCHORAGE,AK -149.8557 61.22002
3    AK            DENALI            DENALI,AK -145.8662 63.04024
4    AK            BETHEL            BETHEL,AK -161.7558 60.79222
5    AK MATANUSKA-SUSITNA MATANUSKA-SUSITNA,AK -150.5125 61.54361
6    AK     KODIAK ISLAND     KODIAK ISLAND,AK -152.3539 57.80459
> 



states <- readOGR("cb_2015_us_state_20m.shp",
                  layer = "cb_2015_us_state_20m", GDAL1_integer64_policy = TRUE)

states <- subset(states, states$STUSPS %in% c("CA"))
class(states)

leaflet(data = map_dat[map_dat$STATE %in% "CA" &
                         map_dat$COUNTY %in% "LOS ANGELES",]) %>%
  addProviderTiles(
    providers$Stamen.TonerLite,
    options = providerTileOptions(noWrap = TRUE)

  ) %>%
  addPolygons(data=states,color = "#444444", weight = 1, smoothFactor = 0.5,
              opacity = 1.0, fillOpacity = 0.5,
              fillColor = ~colorQuantile("YlOrRd", ALAND)(ALAND),
              highlightOptions = highlightOptions(color = "white", weight = 2,
                                                  bringToFront = TRUE)) 

selectedCounty <- lonlat[lonlat$COUNTY == "LOS ANGELES" &&
                           lonlat$STATE == "CA", ]
#leafletProxy(mapId = "allmap") %>%
setView(lng = selectedCounty$lon, lat = selectedCounty$lat, zoom = 5)