R/openVarnames.R

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

#'@title openVarnames
#'@description opens the dataDictionary.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



openVarnames<-function(path_user,results_directoryName){
  #test filePath
  if (!file.exists(paste(path_user,.Platform$file.sep,results_directoryName,.Platform$file.sep,"dataDictionary.csv",sep=""))){
    message(cat("NO dataDictionary 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,"dataDictionary.csv",sep=""))}
}