#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()
}