R/temp_dir.R

In raubreywhite/fhi: FHI Convenience Functions

#' Create a new temp dir
#' @export
temp_dir <- function() {
  time <- as.character(Sys.time())
  time <- gsub("[\\: ]", "-", time)
  rand <- as.character(stats::runif(1))
  rand <- gsub("[\\. ]", "", rand)
  dir.create(t <- file.path(
    tempdir(),
    sprintf(
      "%s-%s-%s",
      time,
      Sys.getpid(),
      rand
    )
  ))

  return(t)
}