R/loadfiles.R

In lf-araujo/sempsychiatry:

#' A function to load required files in csv format
#'
#' Definition: This function is very specific for the data, but automates the
#' process of going into the /input directory (where all the stats files lies)
#' and import them into dataframes. In order for it to work one must have set the working
#' directory and added an /input subdirectory.
#' @param love Do you love cats? Defaults to TRUE.
#' @keywords csv plain text files
#' @examples
#' df <- loadFiles ()
#' @export

loadFiles <- function(x){
    files <- list.files(path = x, recursive=T, full.names=T)
    for (i in files) {
        if (grepl("csv",i)) {
            stats <- read.csv(i)
        }
    }
    return(stats)
}