R/copy_to_other_projects.R

In gorkang/jsPsychHelpeR: Standardize and automatize data preparation and analysis of jsPsych experiments created with jsPsychMaker

#' copy_to_other_projects
#' 
#' Copy specific files to other projects
#'
#' @param file_name .
#' @param overwrite_str .
#' @param check .
#' @param folder_to_search .
#'
#' @return copies file
copy_to_other_projects <- function(file_name, overwrite_str = FALSE, check = TRUE, folder_to_search) {
  
  # DEBUG
  # file_name = "^delete_duplicates.R$"
  # overwrite_str = FALSE
  # folder_to_search = "~/gorkang@gmail.com/RESEARCH"
  
  list_files = list.files(path = folder_to_search, pattern = file_name, recursive = TRUE, full.names = TRUE)

  file_to_copy = list_files[grepl(getwd(), list_files)]
  destinations = list_files[!grepl(getwd(), list_files)]

  if (length(file_to_copy) > 1) stop("More than 1 file matches: '", file_name,"'\n\n", paste(file_to_copy, collapse = "\n"))
  
  if (check == TRUE) {
    
    cat(cli::col_green("Would copy", gsub(getwd(), "", file_to_copy), "to: \n"), cli::col_silver(paste("-", destinations, collapse = "\n")))
    
  } else {

    file.copy(from = file_to_copy, 
              to = destinations, overwrite = overwrite_str)
    
    cat(cli::col_yellow("Copied", gsub(getwd(), "", file_to_copy), "to: \n"), if (overwrite_str == FALSE) {"overwrite_str parameter is FALSE\n"}, cli::col_silver(paste("-", destinations, collapse = "\n")))

  }
  
}

# copy_to_other_projects(file_name = "^delete_duplicates.R$", overwrite_str = TRUE, check = TRUE, folder_to_search = "~/gorkang@gmail.com/RESEARCH")