inst/VRAP/global.R

In eeholmes/VRAPCpp: VRAP 2nd edition with C++ for RER and Viability Computations

source("ravchecker.R")
source("fileupload.R")

## build a vector of demo files named by title
demo.set <- function(dir="demofiles") {
  demos <- list()
  files <- Sys.glob(file.path(dir, '*'))
  for (thefile in files) {
    fi <- file(thefile, 'r')
    demolines <- readLines(fi, 1)
    while (length(demolines) > 0) {
      demoline <- trimws(demolines[1])
      if (nchar(demoline) > 0) {
        dname <- strsplit(demoline, ',')[[1]][1]
        dfile <- basename(thefile)
        demos[dname] = dfile
        break;
      }
      demolines <- readLines(fi, 1)
    }
    close(fi)
  }
  
  as.vector(demos)
}

EXAMPLES <- demo.set()