view polygon/line nodes

viewNodes.R

viewNodes = function(x, cex = 6) {
  crds = sf::st_coordinates(x)[, c("X", "Y")]
  n = nrow(crds)
  pts = sf::st_as_sf(
    data.frame(
      id = 1:n,
      x = crds[, "X"],
      y = crds[, "Y"]
    ),
    coords = c("x", "y"),
    crs = sf::st_crs(x)
  )
  
  m = mapview::mapView(x)@map
  leafgl::addGlPoints(m, pts, color = cbind(0, 0, 0), 
                      opacity = 1, weight = cex, digits = 20)
}