R/as_wgs84.R

Defines functions as_wgs84

as_wgs84 <- function(x, crs) {
  x %>%
    sf::st_point() %>%
    sf::st_sfc(crs = crs) %>%
    sf::st_transform(4326) %>%
    sf::st_coordinates() %>%
    as.numeric()
}
crowcanyon/localgrid documentation built on March 21, 2021, 4:36 a.m.