Round coordinates in WKT strings

wkt_round_coordinates.R

round_coordinates <- function(wkt_string, digits = 4) {
  wkt_object_type <- wkt_string %>%
    stringr::str_extract(".*?(?=\\()")

  x_coord <- wkt_string %>%
    stringr::str_extract("(?<=POINT\\()[0-9]+\\.[0-9]+") %>%
    as.numeric()

  y_coord <- wkt_string %>%
    stringr::str_extract("[0-9]+\\.[0-9]+(?=\\))") %>%
    as.numeric()

  x_rounded <- round(x_coord, digits = digits)
  y_rounded <- round(y_coord, digits = digits)
  glue::glue("{wkt_object_type}({x_rounded} {y_rounded})")
}