mirror of
https://github.com/agdamsbo/stRoke.git
synced 2024-11-23 13:30:22 +01:00
29 lines
762 B
R
29 lines
762 B
R
|
|
||
|
|
|
||
|
|
#' @title Filter files in a folder
|
||
|
|
#' @description This function filters files in a folder based on the
|
||
|
|
#' provided filter.
|
||
|
|
#' @param folder.path character. Path of the folder to be filtered
|
||
|
|
#' @param filter.by character. Filter to be applied on the files
|
||
|
|
#' @param full.names logical. Whether to return full file names or not
|
||
|
|
#' @return character vector. Filtered files
|
||
|
|
#' @export
|
||
|
|
#'
|
||
|
|
#' @examples
|
||
|
|
#' # Gives path to files/folders with "tests" in the name in the
|
||
|
|
#' # working directory
|
||
|
|
#' files_filter(getwd(),"tests")
|
||
|
|
#' @import utils
|
||
|
|
files_filter <- function(folder.path,filter.by,full.names=TRUE){
|
||
|
|
|
||
|
|
#list all files in the folder
|
||
|
|
files <- list.files(path=folder.path, full.names=full.names)
|
||
|
|
|
||
|
|
#filter files
|
||
|
|
files[grepl(filter.by,files)]
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
|