R/make_list.R

In BYUIDSS/HSPSModelR: Machine Learning Model Selection of Cognostic Data

#' Make a list of models
#'
#' Compiles the contents of a folder into a list. Intended for machine learning
#'   models, and for use with the HSPSModelR::make_table function
#'
#' @param x source or file path
#' @importFrom stringr str_c
#' @importFrom rlist list.append
#' @importFrom readr read_rds
#' @importFrom magrittr %>%
#'
#' @return This function returns a \code{list} of contents at specified location
#'
#' @author "Chad Schaeffer <sch12059@@byui.edu>, Brad Borget <bor13001@@byui.edu>"
#' @export
#'
#' @examples
#'
#' \dontrun{
#' models <- make_list("path/to/file")
#' }

make_list <- function(x) {
  file.names <- dir(x, pattern = ".rds")
  list <- list()
  for (i in 1:length(file.names)) {

    file <- read_rds(str_c(x, file.names[i], collapse = ""))
    list <- list.append(list, file)

  }
  return(list)
}