boilerplate leaflet map in R

leaflet_R

lgd_shape1$values <- plot$sum_pos[m]

#MAP-----
labels <- sprintf(
  "<strong>%s</strong>:<br/>: %g  ",
  lgd_shape1$LGDNAME, plot$sum_pos[m]) %>%
  lapply(htmltools::HTML)

#pal1 <- colorFactor("YlOrRd", domain = lgd_shape1$WARNING)
pal1 <- colorNumeric("YlOrRd", domain = plot$sum_pos[m])

map <- leaflet(lgd_shape1) %>%
      addProviderTiles(providers$Stamen.Watercolor)%>%
      addPolygons(
  fillColor = ~pal1(values),
  weight = 2,
  opacity = 1,
  color = "white",
  dashArray = "3",
  fillOpacity = 0.7,
                  highlight = highlightOptions(
    weight = 5,
    color = "black",
    dashArray = "",
    fillOpacity = 1,
    bringToFront = TRUE),
  label = labels,
  labelOptions = labelOptions(
    style = list("font-weight" = "normal", padding = "3px 8px"),
    textsize = "15px",
    direction = "auto"))


  map%>%
    addLegend(pal=pal1,
              values=~values,
              opacity = 0.7,
              title = 'Severity',
              position = "topright")