Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- add_z <- function(x, z_name){
- st_geometry(x) <- st_sfc(st_multipoint(cbind(st_coordinates(x),
- x[[z_name]]))) %>%
- st_cast("POINT")
- return(x)
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement