# Load libraries
library(toro)
library(spData)
library(sf)
nz_data <- spData::nz_height |>
sf::st_transform(4326)
map() |>
set_bounds(list(list(-79, 43), list(-73, 45)))
map() |>
set_bounds(bounds = nz_data)
Run the code above in your browser using DataLab