# FUNCIONES ---------------------------------------------------------------
# Generar paleta de colores del mapa
pal_generator <- function(x, value, palette, ...) {
  con <- sum(x[[value]], na.rm = TRUE) == 0
  if (con) {
    pal <- palette[length(palette)]
  } else {
    pal <- palette
  }
  colorNumeric(
    palette = pal,
    domain = x[[value]],
    ...
  )
}