addPolygons(data = region, stroke = F, opacity = 0.5, smoothFactor = 0.5,
color = "red", fillColor = "red", fillOpacity = 0.5, options =
pathOptions(clickable = FALSE), label = "Region",labelOptions =
labelOptions(noHide = T, clickable = T, textOnly = TRUE, opacity=0.5,textsize='15px'))