airsis_createRawDataframe: Obain AIRSIS data and parse into a raw tibble

Description Usage Arguments Value Note See Also Examples

View source: R/airsis_createRawDataframe.R

Description

Obtains monitor data from an AIRSIS webservice and converts it into a quality controlled, metadata enhanced "raw" tibble ready for use with all raw_~ functions.

Steps involved include:

  1. download CSV text

  2. parse CSV text

  3. apply quality control

  4. apply clustering to determine unique deployments

  5. enhance metadata to include: elevation, timezone, state, country, site name

Usage

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
airsis_createRawDataframe(
  startdate = strftime(lubridate::now(tzone = "UTC"), "%Y010100", tz = "UTC"),
  enddate = strftime(lubridate::now(tzone = "UTC"), "%Y%m%d23", tz = "UTC"),
  provider = NULL,
  unitID = NULL,
  clusterDiameter = 1000,
  baseUrl = "http://xxxx.airsis.com/vision/common/CSVExport.aspx?",
  saveFile = NULL,
  flagAndKeep = FALSE
)

Arguments

startdate

Desired start date (integer or character representing YYYYMMDD[HH]).

enddate

Desired end date (integer or character representing YYYYMMDD[HH]).

provider

Identifier used to modify baseURL ['APCD'|'USFS'].

unitID

Character or numeric AIRSIS unit identifier.

clusterDiameter

Diameter in meters used to determine the number of clusters (see addClustering).

baseUrl

Base URL for data queries.

saveFile

Optional filename where raw CSV will be written.

flagAndKeep

Flag, rather then remove, bad data during the QC process.

Value

Raw tibble of AIRSIS data.

Note

The downloaded CSV may be saved to a local file by providing an argument to the saveFile parameter.

See Also

airsis_downloadData

airsis_parseData

airsis_qualityControl

addClustering

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
## Not run: 
# Fail gracefully if any resources are not available
try({

library(PWFSLSmoke)

raw <- airsis_createRawDataframe(startdate = 20160901,
                                 provider = 'USFS',
                                 unitID = '1033')
raw <- raw_enhance(raw)
rawPlot_timeseries(raw, tlim = c(20160908,20160917))

}, silent = FALSE)

## End(Not run)

PWFSLSmoke documentation built on Nov. 23, 2021, 5:06 p.m.