R/multi_excel.R

In mariafcadena/HomeworkCADENA: Second Homework R

#' Imports the information of all the shees in an excel file
#'
#' @param File Excel file with all the information
#' @import readxl
#' @import assertthat
#' @return List of with the information of all the sheets
#' @export
#'
#' @examples
#' dontrun {multi_excel("Documents/ExcelFiles")}
multi_excel<-function(File)
{
  Sheets <-readxl::excel_sheets(File)
  List   <-lapply(Sheets, function(sheet){readxl::read_excel(File, sheet=sheet)})
  return(List)
}