r paste("### ", currentDataset, collapse='\n')

plotSmall <- FALSE
plotBig <- TRUE
smallDatasets <- c("ATMOSPHERICHEATCONDUNCTION", "NDEPOSITION_EMEP", "NDEPOSITION_ISIMIP2B",
                   "MODIS_MOD15A2", "MODIS_MOD11A2", "MODIS_MOD13Q1", "MODIS_MOD17A2")

if (currentDataset %in% smallDatasets){
  plotSmall <- T
  plotBig <- F
} 
plotData(site = currentSiteName, dataset = currentDataset, automaticPanels = T)
plotData(site = currentSiteName, dataset = currentDataset, automaticPanels = T)


Try the ProfoundData package in your browser

Any scripts or data that you put into this service are public.

ProfoundData documentation built on March 31, 2020, 5:24 p.m.