paths.R

#' Creates a path for the filtered object by adding a suffix to the basename of the path supplied.
#'
#' @param path A path
#' @param suffix A suffix to add to the path
#'
#' @return A path
#'
#' @export
make_path_filtered_object <- function(path, suffix = "_filtered") {
  paste0(tools::file_path_sans_ext(path), suffix, ".", tools::file_ext(path))
}