45 lines
1.8 KiB
R
45 lines
1.8 KiB
R
#install.packages("devtools")
|
|
#devtools::install_github("anguswg-ucsb/cdssr")
|
|
library(cdssr)
|
|
library(tidyverse)
|
|
library(janitor)
|
|
#install.packages("janitor")
|
|
#API <- 'PwevUQJCStcYZfqrOYbuyztmNPlUJWby'
|
|
STR <- get_structures(div=3) %>% as_tibble %>% clean_names
|
|
|
|
SBD_STR_DATA <- 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))
|
|
SBD_LINK <- SBD_STR_DATA %>% select(wdid,sbd)
|
|
nrow(SBD_STR_DATA )
|
|
STR <- STR %>% left_join(SBD_LINK) %>% mutate(sbd=ifelse(is.na(sbd),"none",sbd))
|
|
STR <- STR %>% select(wdid,sbd,ciu_code,county,water_district,sbd,structure_type,management_district_name,latdecdeg,longdecdeg)
|
|
STR
|
|
?get_structures_divrec_ts
|
|
get_structures_divrec_ts(wdid='2005007')
|
|
WDID <- 2005007
|
|
LINK <- paste0('https://dwr.state.co.us/Rest/GET/api/v2/structures/divrec/divrecyear/?format=tsv&dateFormat=dateOnly&fields=wdid%2CwaterClassNum%2CwcIdentifier%2CdataMeasDate%2CdataValue%2CmeasUnits%2CapprovalStatus&measInterval=Annual&wdid=',WDID,'&apiKey=PwevUQJCStcYZfqrOYbuyztmNPlUJWby')
|
|
TEMP <- read_tsv(LINK,skip=2 )
|
|
TEMP %>% print(n=20)
|
|
TOTAL_ROWS <- str_detect(TEMP$wcIdentifier,"Total")
|
|
Total_Values <- TEMP[TOTAL_ROWS,]
|
|
Total_Values %>% select(wdid,year=dataMeasDate,Volume=dataValue)
|
|
OTHER <- TEMP[!TOTAL_ROWS,]
|
|
OTHER$wcIdentifier
|
|
|
|
|
|
TEMP %>% filter((wcIdentifier=='Total (Diversion)')
|
|
%>% filter(
|
|
|
|
|
|
STR %>% filter(structure_type=='WELL')
|
|
|
|
|
|
|
|
get_parceluse_ts(wdid='2005000')
|
|
STR <- as_tibble(STR)
|
|
|