Legend test

unlink("index_files", recursive = TRUE)
library(leaflet)

pal <- colorNumeric(c("red", "blue"), c(0, 10000))
leaflet() %>% addLegend(pal=pal, values=c(0, 10000, NA), title = "Legendary")