tests/testthat/helper-help.R

In wilsonfreitas/rbmfbovespa: Download and Parse Public Data Released by B3 Exchange

library(stringr)

copy_file_to_temp <- function(f_name) {
  folder <- tempdir()
  f_dest <- file.path(folder, basename(f_name))
  if (file.copy(f_name, f_dest, overwrite = TRUE)) {
    f_dest
  } else {
    stop("Can't copy file to tempdir")
  }
}