R/SEAmisc.R

In benharden27/sea: Process and plot data from the Sea Education Association's archive

#' A function that creates the output folders in your home directory
#'
#' Only really applies to author's account
#' @param cruiseID :string containing the name of the SEA cruise
#' @param isReport :T/F argument (default F) to determine if the outputs are for a cruise report
#' @keywords
#' @export
#' @examples
#' makeFolders()
makeFolders <- function(cruiseID,isReport=F) {

  foldmaster <- file.path('~/data/SEA',cruiseID)
  foldship <- file.path(foldmaster,'SHIPDATA')
  foldCTD <- file.path(foldmaster,'CTD','Cnv')

  if(isReport) {
    folddoc <- file.path('~/Documents/SEA/',cruiseID,'cruiseReport')
  } else {
    folddoc <- file.path('~/Documents/SEA/',cruiseID,'seaComponent')
  }

  if (file.exists(paste(folddoc, "/", sep = ""))) {
    cat(folddoc,"is already a directory")
  } else {
    dir.create(folddoc)
  }

  foldplot <- file.path(folddoc,'plots')
  if (file.exists(paste(foldplot, "/", sep = ""))) {
    cat(foldplot,"is already a directory")
  } else {
    dir.create(foldplot)
  }

  return(list(foldmaster=foldmaster,foldship=foldship,foldCTD=foldCTD,folddoc=folddoc,foldplot=foldplot))

}