add minichart to layers control

add minichart to layers control

library(mapview)
library(leaflet.minicharts)
library(sf)

val1 = sample.int(10, nrow(franconia), replace = TRUE)
val2 = round(val1 * runif(nrow(franconia), 0.3, 1), 0)

mat = cbind(val1, val2)
pal = c("darkred", "lightgreen")

m = mapview(franconia)@map

m %>%
  addMinicharts(lng = st_coordinates(st_centroid(franconia))[, "X"],
                lat = st_coordinates(st_centroid(franconia))[, "Y"],
                chartdata = mat, type = "pie", showLabels = TRUE,
                layerId = as.character(1:nrow(franconia)),
                colorPalette = pal, legend = FALSE) %>%
  addLayersControl(overlayGroups = c("franconia", "minicharts")) %>%
  onRender("var minilayer = this._map.layerManager._byCategory.minichart;
           this._map.layerManager.addLayer(minilayer, null, null, minicharts);")