# rm(list=ls())
dirPath    <- "/var/www/lbc-file/r/v1/"

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

fileMatrix <- "TransitionMatrix.xlsx"

farms <- c("Cedro")

for(farmName in farms){
  
  filesPath <- paste0(farmName, "/")
  inpFile   <- paste0(farmName, ".xlsx")

  # 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, ".xlsx"), resList = allOut, logger = logger)
  
  log4r::info(logger, "THE CODE RAN SUCCESSFULLY.")
}