if (FALSE) {
library(gcspikelite)
files <- list.files(system.file('data',package = 'gcspikelite'),full.names = TRUE)
files <- files[sapply(files,grepl,pattern = 'CDF')]
instrumental <- createInstrumentalTable(files)
}
Run the code above in your browser using DataLab