global.R

# uncomment if running standalone
##runPlp <- readRDS(file.path("data","results.rds"))
##validatePlp <- readRDS(file.path("data","extValidation.rds"))
source("processing.R")

if(is.null(.GlobalEnv$shinySettings$result)){
  result <- 'data'
  print('Extracting results from data folder')
} else{
  result <- .GlobalEnv$shinySettings$result
  print('Extracting results from .GlobalEnv$shinySettings')
}

if(is.null(.GlobalEnv$shinySettings$validation)){
  validation <- NULL
} else{
  validation <- .GlobalEnv$shinySettings$validation
}

inputType <- checkPlpInput(result) # this function checks 
if(!class(validation)%in%c('NULL', 'validatePlp')){
  stop('Incorrect validation class')
}
if(inputType == 'file' & !is.null(validation)){
  warning('Validation input ignored when result is a directory location')
}

summaryTable <- getSummary(result, inputType, validation)