Read Data from Union of Concerned Scientists for Sea-level Rise

Excel spreadsheet for chronically inundated properties by zipcode, climate scenario, and year.

Data comes from:

https://www.ucsusa.org/resources/underwater

library(tidyverse)

savepath <-  "/home/ajackson/Dropbox/Rprojects/Curated_Data_Files/SeaLevel/"
path <- "/home/ajackson/Dropbox/projects/CeationCareTaskforce/sealevel/"

knitr::opts_chunk$set(echo = TRUE)

sheets <- readxl::excel_sheets(paste0(path, "underwater-data-by-zip-code.xlsx"))

#   Read in all but first sheet (that is just documentation)

df <- sheets[2:12] %>% 
  set_names() %>% 
  map_df(~ readxl::read_excel(path = paste0(path, "underwater-data-by-zip-code.xlsx"), 
                      sheet = .x, 
                      skip=3), 
         .id = "sheet")

saveRDS(df, paste0(savepath, "UCS_spreadsheet.rds"))