Choropleths map in R shiny