From 08febe227f98899186c2a3d177a6c13da01c00d9 Mon Sep 17 00:00:00 2001 From: jsadler2 Date: Wed, 23 Feb 2022 15:11:57 -0600 Subject: [PATCH] [#45], [#48] pull aux (flow, water temp) data --- 1_fetch.R | 21 ++++++++++++++++++++- 1 file changed, 20 insertions(+), 1 deletion(-) diff --git a/1_fetch.R b/1_fetch.R index 7754eecd..527729d0 100644 --- a/1_fetch.R +++ b/1_fetch.R @@ -49,6 +49,26 @@ p1_targets_list <- list( p1_daily_data, get_daily_nwis_data(p1_nwis_sites_daily,pcode_select,stat_cd_select,start_date=earliest_date,end_date=dummy_date), pattern = map(p1_nwis_sites_daily)), + + + # Download NWIS daily data for other parameters (flow, temperature, SC) (see codes below) + tar_target( + p1_daily_aux_data, + dataRetrieval::readNWISdv( + siteNumbers = p1_nwis_sites_daily$site_no, + parameterCd=c("00060", "00010", "00095"), + statCd=stat_cd_select, + startDate=earliest_date, + endDate=dummy_date) %>% + dataRetrieval::renameNWISColumns() %>% + select(!starts_with("..2..")), + pattern = map(p1_nwis_sites_daily)), + + # Save daily aux data to csv + tar_target( + p1_daily_aux_csv, + write_to_csv(p1_daily_aux_data, outfile="1_fetch/out/daily_aux_data.csv"), + format = "file"), # Save NWIS daily data tar_target( @@ -181,6 +201,5 @@ p1_targets_list <- list( read_csv(p1_ntw_adj_matrix_csv,show_col_types = FALSE) ) - )