R/gettmpdir.R

In bnasr/xROI: Delineate Region of Interests (ROI's) and Extract Time-Series Data from Digital Repeat Photography Images

#' Path to the TEMP directory
#'
#' This function returns the path to the TEMP directory
#' @return the path to the system temporary directory
#' @keywords  temporary directory
#' @export
#' @examples
#' p <- gettmpdir()
#'
gettmpdir <- function() {
  if (.Platform$OS.type == 'windows')
    Sys.getenv('R_USER')
  else
    '/tmp'
}