cmip6-hi.R

packages <- c("magrittr",
              "terra",
              "tidyverse",
              "multidplyr"
)
purrr::walk(packages, devtools::install_cran)
purrr::walk(packages,
            library,
            character.only = TRUE)

source("nexgddp_cmip6.R")

dir.create(
  file.path("hi")
)
usethis::use_git_ignore("hi")

# https://prd-tnm.s3.amazonaws.com/StagedProducts/Hydrography/WBD/National/GDB/WBD_National_GDB.zip
# conus <- sf::read_sf("~/Downloads/WBD_National_GDB/WBD_National_GDB.gdb/", "WBDHU2") %>%
#   dplyr::filter(huc2 %in% stringr::str_pad(1:18, width = 2, pad = "0")) %>%
#   sf::st_transform(5070) %>%
#   sf::st_make_valid() %>%
#   dplyr::select(huc2, name) %>%
#   dplyr::summarise() %>%
#   sf::st_buffer(50000) %>%
#   sf::write_sf("conus_huc2.fgb")

# sf::read_sf("wbdhu2_a_us_september2021.gdb/", "WBDHU2") %>%
#   dplyr::filter(huc2 %in% stringr::str_pad(10:18, width = 2, pad = "0")) %>%
#   sf::st_transform(5070) %>%
#   sf::st_make_valid() %>%
#   dplyr::select(huc2, name) %>%
#   plot()
#     sf::write_sf("conus_huc2_real.fgb")

hi <- 
  tigris::states() %>%
  dplyr::filter(STUSPS == "HI")

get_cmip6(hi, file.path("hi"))