R/moveFilescreateScripts.R

In kitbenjamin/daRtInput:

moveFilescreateScripts <- function(simName, DARTprogDir, DARTprocess, userDesc){
  # moves filles from simulation folder to new folder

  #path to the simulation folder
  simPath <- paste0(c(DARTprogDir, 'user_data', 'simulations', simName), collapse = '/')

  #create directory to be moved to
  if (is.null(userDesc)){
    newDir <- paste0(simPath, '/daRtinput', '/', strftime(Sys.time(), format = "%Y%j_%H%M%S"))
    dir.create(newDir, recursive = TRUE)
  } else {
    newDir <- paste0(simPath, '/daRtinput', '/', userDesc)
    if (!(dir.exists(newDir))){
    dir.create(newDir, recursive = TRUE)}
  }


  #create job tracking table JTT
  dbName <- paste0(simName, '_JTT.db')
  dbFullPath <- paste0(newDir, '/', dbName )
  createJTT(dbFullPath, simName, newDir, DARTprogDir)

  # get all files in sequence folder
  seqDir <- paste0(simPath, '/sequence')
  seqFiles <- list.files(seqDir)
  seqFilePaths <- paste0(seqDir, '/', seqFiles)

  # move all to new folder
  a <- lapply(seqFilePaths, function(x) {file.copy(x, newDir, recursive = TRUE)
    unlink(x, recursive = TRUE)})

  # create batch or shell scripts
  os <- get_os()
  if (os == 'mac' | os == 'unix') {
    createShellScripts(DARTprogDir, newDir, DARTprocess)
  }
  if (os == 'win') {
    createBatScripts(DARTprogDir, newDir, DARTprocess)
  }

  #delete sequences folder
  seqPath <- paste0(c(DARTprogDir, 'user_data', 'simulations', simName, 'sequence'), collapse = '/')
  unlink(seqPath, recursive = TRUE)
}