powered by
Returns a list of unitIDs with data during a particular time period.
airsis_availableUnits(startdate = strftime(lubridate::now("UTC"), "%Y010100", tz = "UTC"), enddate = strftime(lubridate::now("UTC"), "%Y%m%d23", tz = "UTC"), provider = "USFS", unitTypes = c("BAM1020", "EBAM", "ESAM"), baseUrl = "http://xxxx.airsis.com/vision/common/CSVExport.aspx?")
desired start date (integer or character representing YYYYMMDD[HH])
desired end date (integer or character representing YYYYMMDD[HH])
identifier used to modify baseURL ['APCD'|'USFS']
['APCD'|'USFS']
vector of unit types
base URL for data queries
Vector of AIRSIS unitIDs.
Interagency Real Time Smoke Monitoring
# NOT RUN { unitIDs <- airsis_availableUnits(20150701, 20151231, provider = 'USFS', unitTypes = c('EBAM','ESAM')) # }
Run the code above in your browser using DataLab