Цветной многоугольник со слоем без перерисовки в блестящей листовке

Question

Я пытаюсь построить несколько полигонов в определенных странах, не перерисовывая их. Листовка очень медленно перерисовывает полигоны.

Я хотел заполнить некоторые полигоны благодаря layerId, не перерисовывая их.

library(maptools)
data(wrld_simpl)

output$map  <- renderLeaflet({
  leaflet("map") %>% addPolygons(data = wrld_simpl, layerId =wrld_simpl$NAME)
}) 

wrld_simpl_subset <- subset(wrld_simpl, POP2005>1000000)

output$plot1 <- renderPlot({
leafletProxy("map") %>%
# Something that colours the states in wrld_simpl_subset (useto layerId), without re-drawing them...
})

Как выполнить этот пример кода?