Preview of view_zoom

Denmark_to_Australia.R

library(ggplot2)
library(gganimate)
library(sf)
earth <- sf::st_as_sf(rnaturalearth::countries110)
views <- data.frame(rbind(
  st_bbox(earth[earth$name == 'Denmark',]),
  st_bbox(earth[earth$name == 'Australia',])
))
p <- ggplot() + 
  geom_sf(data = earth, fill = 'white') + 
  geom_sf(data = earth[earth$name %in% c('Denmark', 'Australia'),], fill = 'forestgreen') + 
  theme(panel.background = element_rect('lightblue')) + 
  view_zoom_manual(1, 1, xmin = views$xmin, xmax = views$xmax, ymin = views$ymin, ymax = views$ymax, wrap = TRUE)
animate(p, 100, 10)

I had no problems running the code. I'd just add the following line at the end to save the plot anim_save("test.gif")