R/rename_audiomoth_files.R

In samherniman/audiomoth.tools: Make Audiomoths easier to use

#' Rename audiomoth files to be compatible with Arbimon
#'
#' @description This function removes the 'T' from the end of audiomoth filenames allowing them to be uploaded to Arbimon
#' @param dir_path a path to the directory of audiomoth files
#'
#' @return a directory with audiomoth files that do not end in 'T'
#' @export
#'
#'
#' @examples
#' \dontrun{
#' rename_audiomoth_files("user/audiomoth_files")
#' }
rename_audiomoth_files <- function(dir_path) {
  files_vec <- list.files(dir_path, full.names = TRUE)
  sapply(files_vec,FUN=function(eachPath){
    file.rename(from=eachPath,to=stringr::str_remove(eachPath, "T"))
    })
}