search

nationalparkservice / EnvironmentalSetting_Toolkit

Tools supporting the NPS IMD Environmental Setting protocol
Other
3 stars 2 forks source link

Add getRunDetails() #56

Closed llnelson closed 5 years ago

llnelson commented 5 years ago

See issues #18 and #22 - decision not to re-format (#18) or re-factor (#22) because it is more flexible (atomic) to add a new function getRunDetails() to return "uid","name","pcpn_in_runYear", ”pcpn_in_run_le_0.01”,"pcpn_in_runEndDate","metric" output. The departure analog is getDepartureDetails().

llnelson commented 5 years ago

apply() logic drills in but lacks other columns : 

library(EnvironmentalSettingToolkit)

climateStationsPcpn <-  findStation(
unitCode = "AGFO",
distance = 30,
climateParameters = list('pcpn')
)

mData <- getWxObservations(
climateStations = unique(climateStationsPcpn$uid),
climateParameters = list("pcpn"),
sdate = "1958-01-01",
edate = "2018-12-31",
duration = "yly",
interval = "yly",
reduceCodes = "run_le_0.01",
maxMissing = 10,
metric = "CSP3"
)

pcpn_in_run_val <- lapply(unique(mData$uid), function(x) mData$pcpn_in_run[mData["uid"]==x][1][[1]][,1])
pcpn_in_run_endDate <- lapply(unique(mData$uid), function(x) mData$pcpn_in_run[mData["uid"]==x][1][[1]][,2])
llnelson commented 5 years ago

added and tested; closing issue