R/xls.reader.R

In johnmyleswhite/ProjectTemplate: Automates the Creation of New Statistical Analysis Projects

#' @describeIn preinstalled.readers Read an Excel file with a \code{.xls} file extension.
#'
#' This function will load the specified Excel file into memory using the
#' \code{readxl} package.
xls.reader <- function(data.file, filename, workbook.name)
{
  .require.package('readxl')

  sheets <- readxl::excel_sheets(filename)

  for (sheet.name in sheets)
  {
    variable.name <- paste(workbook.name, clean.variable.name(sheet.name), sep = ".")
    tryCatch(assign(variable.name,
                    data.frame(readxl::read_excel(filename,
                                       sheet = sheet.name)),
                    envir = .TargetEnv),
             error = function(e)
             {
               warning(paste("The worksheet", sheet.name, "didn't load correctly."))
             })
  }
}