传单永远载入，永远不会在RStudio中显示

Question

我是r和Leaflet的新用户，我发现当我为我的传单地图运行代码时，地图将永远加载。我永远不会出错。在运行代码而不尝试按数据着色时，地图需要花费很长时间才能加载，但最终会花费十分钟。

我在编织方面遇到同样的问题。

我的其他工作中都没有遇到过此类问题。

代码如下：

```{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))

谢谢！