local_jon/monitor_plot_examples.R

In MazamaScience/AirMonitorPlots: Plot Utilities for the AirMonitor Package

# dataList <- createDataList(infoList, DATA_DIR)
# # Get language dependent plot labels
# textListScript = paste('R/createTextList_',infoList$language, '.R', sep="")
# source(textListScript)
# textList <- createTextList(dataList, infoList)
# # Create plot
# png(pngPath, width=infoList$plotwidth, height=infoList$plotheight, units="px")
# if ( infoList$plottype == "dailybarplot" ) {
#   dailyBarplot(dataList, infoList, textList)
# } else if ( infoList$plottype == "dailybyhour" ) {
#   dailyByHour(dataList, infoList, textList)
# } else if ( infoList$plottype == "timeseries" ) {
#   timeseries(dataList, infoList, textList)
# } else if ( infoList$plottype == "locationmap" ) {
#   locationMap(dataList, infoList, textList)
# } else if ( infoList$plottype == "esrilocationmap" ) {
#   esriLocationMap(dataList, infoList, textList)
# } else {
#   stop("invalid plotType", call. = FALSE)
# }
# dev.off()

timeseries <- function(dataList, infoList, textList) {
  mts_monitor <- dataList$mts_monitor
  deviceDeploymentID <- infoList$monitorid
  lookbackDays <- infoList$lookbackdays
  size <- infoList$size
  
  enddate <- lubridate::now()
  startdate <- lubridate::now() - lubridate::ddays(lookbackDays)
  
  style <- ifelse(size <= 500, "small", "large")
  
  monitor_ggTimeseries(mts_monitor,
                       startdate = startdate,
                       enddate = enddate,
                       style = style,
                       deviceDeploymentIDs = deviceDeploymentID)
  
}

dailyBarplot <- function(dataList, infoList, textList) {
  mts_monitor <- dataList$mts_monitor
  deviceDeploymentID <- infoList$monitorid
  lookbackDays <- infoList$lookbackdays
  size <- infoList$size
  
  enddate <- lubridate::now()
  startdate <- lubridate::now() - lubridate::ddays(lookbackDays)
  
  style <- ifelse(size <= 500, "small", "large")
  
  monitor_ggDailyBarplot(mts_monitor,
                         startdate = startdate, 
                         enddate = enddate,
                         style = style,
                         deviceDeploymentIDs = deviceDeploymentID)
}