In ProfoundData: Downloading and Exploring Data from the PROFOUND Database

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

Description

r paste(currentDescription, collapse='\n')

The following data is available for the site

dataAvailable <- overview[i,3:ncol(overview)]
rownames(dataAvailable) <- NULL

dataAvailableShow <- as.data.frame(t(dataAvailable))
colnames(dataAvailableShow) <-"availability"
dataAvailableShow$dataset <- rownames(dataAvailableShow)
dataAvailableShow <- dataAvailableShow[, c("dataset", "availability")]
rownames(dataAvailableShow) <- NULL

pander(dataAvailableShow, adding = 0, missing = '**--**', round = 3,
       use.hyphening = TRUE, split.cells = 3, caption = tableCaption(paste("Available data for ", currentSiteName, sep="")))

Data

both <- c("CLIMATE_LOCAL")
onlySummary <- c("CLIMATE_ISIMIP2B", "CLIMATE_ISIMIP2A", "CLIMATE_ISIMIPFT", "CLIMATE_ISIMIP2BLBC")
nothing <- c("MODIS", "CO2_ISIMIP", "SOIL", "SITES")#, "NDEPOSITION_ISIMIP2B")
all <- c(both, onlySummary, nothing)

outDummy <- NULL
for (k in 1:length(dataAvailable)){
  if(dataAvailable[k] == 1){
    currentDataset <- names(dataAvailable)[k] 
      if(names(dataAvailable)[k] %in% both){
        outDummy <- c(outDummy, knit_child(system.file("rmd", "ChildBoth.Rmd", package = "ProfoundData")))
      }else if(names(dataAvailable)[k] %in% onlySummary){
         outDummy <- c(outDummy, knit_child(system.file("rmd", "ChildSummary.Rmd", package = "ProfoundData")))
      }else if(!names(dataAvailable)[k] %in% nothing){
        outDummy <- c(outDummy, knit_child(system.file("rmd", "ChildPlot.Rmd", package = "ProfoundData")))
    }
  }
}