tests/test_Processor.R

In albhasan/blissR: R tools for handling MODIS data for BLISS

#test_Processor.R
library(testthat)
library(blissR)



#files <- list.files(path = "/mnt/lun0/MODIS_ARC/MODIS/MOD09Q1.005/", full.names = TRUE, all.files=TRUE, recursive=TRUE)
#files <- grep(pattern="2013.", x=files, value = TRUE)
#t1 <- Sys.time()
#resultFolder <- "/mnt/lun0/csv4scidb"
#p <- new ("Processor", files, resultFolder)
#process(p)
#t2 <- Sys.time()
#t2 - t1
#16.49702 mins processing 15 files (5 MOdis files)
#5.360787 mins processing 3 files (1 MOdis files)