R/pre_processor_incubatortemp.R

In LEEF-UZH/LEEF.measurement.incubatortemp: Pre-Process and Extract Incubatortemp

#' Preprocessor incubatortemp data
#'
#' Just copy from input to output
#'
#' @param input directory from which to read the data
#' @param output directory to which to write the data
#'
#' @return invisibly \code{TRUE} when completed successful
#'
#' @export

pre_processor_incubatortemp <- function(
  input,
  output
) {
  message("\n########################################################\n")
  message("\nProcessing incubatortemp...\n")
  ##
  dir.create(
    file.path(output, "incubatortemp"),
    recursive = TRUE,
    showWarnings = FALSE
  )
  file.copy(
    from = file.path(input, "incubatortemp", "."),
    to = file.path(output, "incubatortemp"),
    recursive = TRUE
  )
  ##
  message("done\n")
  message("\n########################################################\n")

  invisible(TRUE)
}