data-raw/tz_sf.R

In ateucher/lutz: Look Up Time Zones of Point Coordinates

library(sf)
library(lwgeom)
library(rmapshaper)
# The data is from https://github.com/evansiroky/timezone-boundary-builder
# And released under the Open Data Commons Open Database License (ODbL)
download.file("https://github.com/evansiroky/timezone-boundary-builder/releases/download/2019b/timezones-with-oceans.geojson.zip",
              destfile = "data-raw/tz.zip")
unzip("data-raw/tz.zip", exdir = "data-raw", overwrite = TRUE)
tz_full <- read_sf(list.files("data-raw", recursive = TRUE, pattern = "oceans\\.json$", full.names = TRUE))
tz_sf <- ms_simplify(tz_full, keep = 0.135, keep_shapes = TRUE, explode = TRUE) %>%
  st_make_valid()

usethis::use_data(tz_sf, compress = "xz", internal = TRUE, overwrite = TRUE)