29 lines
1.6 KiB
R
Executable File
29 lines
1.6 KiB
R
Executable File
#install.packages("devtools")
|
|
#devtools::install_github("anguswg-ucsb/cdssr")
|
|
#library(cdssr)
|
|
library(tidyverse)
|
|
library(janitor)
|
|
#install.packages("janitor")
|
|
#API <- 'PwevUQJCStcYZfqrOYbuyztmNPlUJWby'
|
|
read_csv("Data/SBD_Data/StructureList_SBD2.csv")
|
|
SBD_LINK <- rbind(read_csv("Data/SBD_Data/StructureList_SBD1.csv") %>% mutate(SBD=1),
|
|
read_csv("Data/SBD_Data/StructureList_SBD2.csv") %>% mutate(SBD=2),
|
|
read_csv("Data/SBD_Data/StructureList_SBD3.csv") %>% mutate(SBD=3),
|
|
read_csv("Data/SBD_Data/StructureList_SBD4.csv") %>% mutate(SBD=4),
|
|
read_csv("Data/SBD_Data/StructureList_SBD5.csv") %>% mutate(SBD=5),
|
|
read_csv("Data/SBD_Data/StructureList_SBD6.csv") %>% mutate(SBD=6)) %>% clean_names %>% mutate(wdid=as.character(wdid))
|
|
#################
|
|
STRUCTURES <- 'https://dwr.state.co.us/Rest/GET/api/v2/structures/?format=csv&fields=wdid%2CciuCode%2CstructureType&division=3&pageSize=500000&apiKey=PwevUQJCStcYZfqrOYbuyztmNPlUJWby'
|
|
STRUCTURES<- read_csv(STRUCTURES,skip=2 )
|
|
WELLS <- STRUCTURES %>% filter(structureType=='WELL')
|
|
|
|
LIST <- WELLS %>% pull(wdid) %>% unique
|
|
|
|
if(file.exists("./Data/Div3_Pumping_Data.csv")){LIST <-LIST[-which(LIST %in% t(read.csv("./Data/Div3_Pumping_Data.csv")[,1] %>% unique))]}
|
|
for(C_WELL in LIST ){
|
|
try(C_DAT <- read_csv(paste0('https://dwr.state.co.us/Rest/GET/api/v2/structures/divrec/divrecyear/?format=csv&wdid=',C_WELL,'&apiKey=PwevUQJCStcYZfqrOYbuyztmNPlUJWby'),skip=2) %>% select(wdid,year=dataMeasDate,pumping=dataValue))
|
|
if(exists("C_DAT")){ if(C_DAT[[1,1]]==C_WELL){write_csv(C_DAT,append=TRUE,file="./Data/Div3_Pumping_Data.csv")}}
|
|
closeAllConnections()
|
|
}
|
|
|