R/getResultFileList.R

In huchzi/flickerbox: Functions for creating stimuli and analyzing results for a 4-channel-LED-stimulator

#' Get a list of result files in the directory "path"
#' @param path Directory that is to be searched for result files
#' @return a list of file names
#' @author Cord Huchzermeyer
#' @export

getResultFileList <-
  function (path = ".") {
    # Return a list of result files in the directory path
    dname <-
      paste(
        "_O([[:upper:]]{1})_20([[:digit:]]{2})-([[:digit:]]{2})-([[:digit:]]{2})_([[:alnum:]]*)\\.txt",
        sep = ""
      )
    dateien <- list.files(path = normalizePath(path), pattern = dname, full.names = TRUE)
    return(dateien)
  }