# rm(list=ls())
args = commandArgs(trailingOnly=TRUE)

dirPath   <- c(args[3]) #"/var/www/lbc-file/r/v1"

setwd(dirPath)

source("Libraries.R")
source("RunGEE.R")

#dirPath    <- "C:/Users/biaar/GitHub/Nestle-GEE"
fileMatrix <- "TransitionMatrix.xlsx"

filesPath <- c(args[1])
inpFile   <- c(args[2])

# setting up logger
suppressWarnings(file.remove(paste0(filesPath, inpFile, "-logfile.log")))
logger <- log4r::create.logger(paste0(filesPath, inpFile, "-logfile.log"), level = "INFO")
  
# Loading input's category and diet data
allInp <- readInput(filepath = paste0(filesPath, inpFile), mtxpath = fileMatrix, logger = logger)
  
allOut <- runGEE(allInp = allInp, logger = logger)
  
# Writing output file
log4r::info(logger, "SAVING RESULTS...")
writeDF(filepath = paste0(filesPath, "Outputs-", inpFile), resList = allOut, logger = logger)
  
log4r::info(logger, "THE CODE RAN SUCCESSFULLY.")