Загрузка листовок с множеством ошибок в RPubs

Question

Я пытался заставить это работать часами и не могу заставить его работать.

Я создаю фреймы данных из большой серии листов Excel, а затем создаю интерактивные листовки для отображения данных.

Проблема связана с картами, я могу связать / запустить все данные, и они прекрасно отображаются в окне просмотра, но когда я пытаюсь загрузить их в Rpubs, я получаю множество ошибок.

В основном это ошибка 18

curl: (18) передача закрыта с оставшимися незавершенными данными чтения Ошибка в http (протокол, «api.rpubs.com», порт, метод, путь, заголовки,: Ошибка скручивания (произошла ошибка скручивания 18) Звонки: -> http

Я несколько раз удалял и переустанавливал R и R Studio

Удалил и переустановил все пакеты. Вместо этого я уменьшил количество карт до 1 со слоями, но это просто не сработает ...

Я действительно не знаю, как показать небольшое количество кода, чтобы сделать это, но вот мой буклетный код.

# Create the popup dialog for both layers

final_district_dataframe_popups_sfsp <- paste0(
  "District Name: ", final_district_dataframe$sfa_name, "<br>",
  "Free and Reduced Percent: ", round(final_district_dataframe$free_and_red_perc, digits = 3), "<br>",
  "SFSP Site Count: ", final_district_dataframe$site_count_sfsp, "<br>",
  "SFSP Average ADP: ", final_district_dataframe$adp_sfsp_2018)

final_district_dataframe_popups_score <- paste0(
  "District Name: ", final_district_dataframe$sfa_name, "<br>",
  "Free and Reduced Percent: ", round(final_district_dataframe$free_and_red_perc, digits = 3), "<br>",
  "Score: ", round(final_district_dataframe$score, digits = 3), "<br>", 
  "School Breakfast Program: ", final_district_dataframe$sbp, "<br>",
  "National School Lunch Program: ", final_district_dataframe$nslp, "<br>",
  "Afterschool Snack Program: ", final_district_dataframe$snack, "<br>",
  "Special Milk Program: ", final_district_dataframe$smp)

# Create the color pallet for each layer

sfsp_pal <- colorNumeric(palette = "plasma", 
                                domain = 
score_pal <- colorNumeric(palette = "plasma", 
                                domain = final_district_dataframe$score)

# create the map

layer_map <- final_district_dataframe %>% 
  st_transform(crs = "+init=epsg:4326") %>% 
  leaflet(width = "100%" ,options = leafletOptions(minZoom = 6)) %>% 
  addProviderTiles("Esri.WorldGrayCanvas") %>% 
  setView(lng = -106, lat = 39.6, zoom = 6.5) %>% 
    addPolygons(popup = final_district_dataframe_popups_score,
              group = "Score",
              stroke = FALSE,
              smoothFactor = 0,
              fillOpacity = 0.6,
              color = ~ score_pal(score),
              highlightOptions = highlightOptions(color = "white", weight = 2,
                                                  bringToFront = TRUE)) %>%
  addLegend("bottomright", 
            group = "Score",
            pal = score_pal, 
            values = ~ score,
            title = "Evaluated Risk Score",
            opacity = 1) %>% 
  addPolygons(popup = final_district_dataframe_popups_sfsp,
              group = "SFSP",
              stroke = FALSE,
              smoothFactor = 0,
              fillOpacity = 0.6,
              color = ~ sfsp_pal(adp_sfsp_2017),
              highlightOptions = highlightOptions(color = "white", weight = 2,
                                                  bringToFront = TRUE)) %>%
  addLegend("bottomright", 
            group = "SFSP",
            pal = sfsp_pal, 
            values = ~ adp_sfsp_2017,
            title = "adp_sfsp_2017",
            opacity = 1) %>% 
  addLayersControl(
    baseGroups = c("Score", "SFSP"),
    options = layersControlOptions(collapsed = FALSE, position = "topleft")) %>% 
  hideGroup("SFSP")

layer_map

Я пытаюсь опубликовать на html. Как ниже, но по-прежнему получать ошибки:

Предыдущая часть кода перед созданием карт

http://rpubs.com/cherritt/488395