R/readmv.R

In MATHSTATSOU/Intro2R: Introduction to R

#' @title Read all DAT data from JW
#'
#' @param dird Directory to the data folder with separator on the end
#'
#' @return A named list of all the data
#' @export
#'
#' @examples
#' \dontrun{v <- readMV()}
readMV <- function(dird = 'D:\\MULTIVARIATE-OU - 2021\\DATA\\'){

  reaDAT <- function(file){
    d <- paste0(dird,file)
    f<-suppressWarnings(read.table(d, fill = TRUE, header = FALSE,skipNul = FALSE))

    f
  }

  files <- list.files(dird, pattern = "*.DAT")
  l <- stringr::str_length(files)
  newnames <- stringr::str_sub(files, 1, l - 4)

  ll <- purrr::map(files , ~ try(reaDAT(.x), silent = TRUE))
  names(ll) = newnames

  invisible(ll)

}