R/openParameters.R

In tbep-tech/tbepRSparrow: RSPARROW: An R system for SPARROW modeling

#'@title openParameters
#'@description opens the parameters.csv control file for edit \\cr \\cr
#'Executed By: executeRSPARROW.R \\cr
#'@param path_user character string path to RSPARROW user directory containing results, data, 
#'       and gis subdirectories
#'@param results_directoryName character string indicating the users results subdirectory name



openParameters<-function(path_user,results_directoryName){
  #test filePath
  if (!file.exists(paste(path_user,.Platform$file.sep,results_directoryName,.Platform$file.sep,"parameters.csv",sep=""))){
    message(cat("NO PARAMETERS FILE FOUND IN RESULTS DIRECTORY.\n",paste(path_user,.Platform$file.sep,results_directoryName,.Platform$file.sep,sep="")))
  }else{
    shell.exec(paste(path_user,.Platform$file.sep,results_directoryName,.Platform$file.sep,"parameters.csv",sep=""))}
}