R/parameter-import_parameter_f.R

In junyitt/tfunction: tfunction for Trading Purposes

#' import_parameter_f 
#' 
#' Provide a global parameter text file (comma separated), this function will assign the value to its respective variable.
#' 
#' 
#' @param path_parameter path to GLOBAL_PARAMETER.txt
#' @keywords import parameter
#' @export
#' @examples
#' import_parameter_f("../GLOBAL_PARAMETER.txt")
import_parameter_f <- function(path_parameter = "../GLOBAL_PARAMETER.txt"){
      
      if(!file.exists(path_parameter)){
            stop( paste0(path_parameter, " does not exist!") ) 
            
      }
      parameter_df <- read.table(path_parameter, sep = ",", stringsAsFactors = F, header = F)

      var <- parameter_df[,1]
      value <- parameter_df[,2]
      func <- parameter_df[,3]

      pL <- nrow(parameter_df)
      for(i in 1:pL){
           # assign(var[i], value[i], envir = .GlobalEnv)
            eval(parse(text = paste0(  var[i], " <<- " , func[i] , "('" , value[i], "')"           )))
      }
      
      cat("Done importing parameters.\n")
      
}