data-raw/bridges_dams.R

In hlendway/albersextra: ggcart

library(sf)

bridges <- read_sf("data-raw/bridges.csv",
                   options = c("X_POSSIBLE_NAMES=longitude",
                               "Y_POSSIBLE_NAMES=latitude"))
bridges <- st_set_crs(bridges, 4326) %>%
  st_transform(5070)

dams <- read_sf("data-raw/dams.csv",
                options = c("X_POSSIBLE_NAMES=longitude",
                            "Y_POSSIBLE_NAMES=latitude"))
dams <- st_set_crs(dams, 4326) %>%
  st_transform(5070)

save(bridges, file = "data/bridges.rda")
save(dams, file = "data/dams.rda")