leaflet performace

[gstephan30]

creating leaflet map crashe

library(sormasmap)
library(leaflet)
library(tidyverse)

raster_file <- system.file("extdata", "gadm36_DEU_1_sp.rds", package = "sormasmap")
germany <- readRDS(raster_file)

sormas_test <- load_shp(2) %>% 
  left_join(
    tibble(
      plz = as.character(sample(1:99, 30, replace = FALSE)),
      sormas = "yes"
    )
  ) %>% 
  mutate(sormas = if_else(is.na(sormas), "no", sormas))

sormas_low <- load_shp(2, "low") %>% 
  left_join(
    tibble(
      plz = as.character(sample(1:99, 30, replace = FALSE)),
      sormas = "yes"
    )
  ) %>% 
  mutate(sormas = if_else(is.na(sormas), "no", sormas))

ggplot() +
  geom_polygon(
    data = sormas_test,
    aes(long, lat, group = group, fill = sormas),
    color = 'white') +
  scale_fill_manual(values = c("#d3d3d3", "#0277bd")) +
  geom_polygon(
    data = germany,
    aes(long, lat, group = group),
    colour = "black",
    fill = NA,
    size = 1,
    alpha = 0.4, 
    show.legend = FALSE) +
  theme_void() +
  coord_map() +
  labs(title = "Test graphic SORMAS in Germany", 
       subtitle = "Date 15/1/2021",
       fill = "SORMAS deployed") +
  theme(legend.position = "bottom") +
  guides(fill = guide_legend(title.position = "top"))