R/fct_analyseRatings.R

In torden81/rateImg: Evaluate images

#' readEvalFiles
#'
#' @return list with the rated images
#' @export
readEvalFiles <- function(path="."){

  evalFilePattern <- "^[[:digit:]]+-[[:digit:]]+_.*\\.rds$"
  
  pathToRDSfiles <- path#paste0(system.file(package = "evalImg"), "\\..")
  
  filesToLoad <- list.files(path = pathToRDSfiles,pattern=evalFilePattern)
  
  dat <- lapply(filesToLoad, readRDS)
  names(dat) <- tools::file_path_sans_ext(filesToLoad)
  
  out <- do.call(rbind, dat)
  rownames(out) <- seq_along(rownames(out))
  
  return(out)
}