R/create_path_to_file.R

In patelm9/mirroR:

#' Creates a full file path by taking name components sans punctuation
#' @param path_folder path to destination folder including forward slashes
#' @param basename    basename of file without file extension
#' @param file_extension file extension
#' @export
create_path_to_file <-
        function(path_folder, basename, file_extension = NULL) {
                if (is.null(file_extension)) {
                        paste0(path_folder, "/", basename)
                } else {
                        paste0(path_folder, "/", basename, ".", file_extension)
                }
        }