R/move.R

In bweiher/bwmisc: Miscellaneous functions for random things that I might use on a daily basis

#' Move some files or rename them
#'
#' Just a wrapper for file.rename
#'
#' @export
#' @param x files or dirs that you want to move
#' @param dir_to directory/filename to move files to
move <- function(x, dir_to) {
    chr_length <- character(length = length(x))
    for (g in seq_along(chr_length)) {
      where <- glue::glue("{dir_to}/{x[g]}")
      invisible(file.rename(from = x[g], to = where))
    }
}