crs_animation.R

library(ggplot2)

ozmap <- function(proj4string) {
  dat <- sf::st_transform(ozmaps::abs_ced, proj4string)
  ggplot(dat) +
    geom_sf() +
    coord_sf() +
    theme_void()
}


animation::saveGIF({
  for(lon in 0:100) {
    cat(".")
    str <- paste0("+proj=aeqd +datum=WGS84 +lat_0=0 +lon_0=", lon)
    p <- ozmap(str)
    plot(p)
  }},
  "~/Desktop/crsanim.gif",
  interval = .1
)

gistfile1.txt

library(ggplot2)

ozmap <- function(proj4string) {
  dat <- sf::st_transform(ozmaps::abs_ced, proj4string)
  ggplot(dat) +
    geom_sf() +
    coord_sf() +
    theme_void()
}


animation::saveGIF({
  for(lon in 0:100) {
    cat(".")
    str <- paste0("+proj=aeqd +datum=WGS84 +lat_0=0 +lon_0=", lon)
    p <- ozmap(str)
    plot(p)
  }},
  "~/Desktop/crsanim.gif",
  interval = .1
)