Листовка загружается вечно, никогда не отображается в RStudio

Question

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

У меня та же проблема с вязанием.

У меня не было подобных проблем ни в одной другой моей работе.

Вот код:

```{r setup, echo = FALSE, warning = FALSE, message = FALSE, 
error = FALSE, cache = TRUE}
knitr::opts_chunk$set(echo = FALSE)

library(leaflet)
library(tidyverse)
library(rgdal)
crime <- read_rds("r_4_tidy.rds")


rf_map <- readOGR(dsn = "/Final_Project/RUS_adm", layer = 
"RUS_adm1")

rf_map <- spTransform(rf_map, CRS("+init=epsg:4326"))

rf_map <- merge(rf_map, crime, by = "ID_1", duplicateGeoms = 
TRUE)

domain <- rf_map@data %>%
 filter(YEAR == "1990") %>%
 select(CRIMESHARE)

coloring <- colorNumeric(palette = "Blues",domain = domain)

rf_map %>%
 leaflet() %>%
 addProviderTiles(provider = "CartoDB") %>%
 addPolygons(weight = 1, 
            #label = NAME,
            color = ~coloring(CRIMESHARE))

Спасибо!