eds-notebook-submission-targets/_targets.R at main · abnerbog/eds-notebook-submission-targets · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
# import targets library
library(targets)

# define packages needed to execute pipeline
tar_option_set(
  packages = c(
    'tidyverse',
    'dataRetrieval',
    'httr2',
    'tools',
    'sf',
    'xml2',
    'leaflet',
    'RColorBrewer',
    'htmlwidgets',
    'rnaturalearth',
    'withr'
  )
)

# define inputs to pipeline
# USGS gage sites by ID
harvey_sites <- c('USGS-08211520','USGS-08188500','USGS-08030500','USGS-08162000','USGS-08014800')
# start date for retrieving stage data
start_date <- "2017-08-25"
# end date for retrieving stage data
end_date <- "2017-09-12"
# Hurricane Harvey inputs to feed into National Hurricane Center (NHC) query
ocean <- "al"
storm_num <- "09"
year <- "2017"

# import files for each phase receipt
source('01_fetch.R')
source('02_process.R')
source('03_visualize.R')

# combine all targets
c(p1,p2,p3)