Nothing
#' Load a full 'MS Excel' File
#'
#' Given a 'MS Excel' File it loads the full workbook creating as many variables as
#' sheets exists in the workbook.
#'
#' @param filename The path and the name to the' MS Excel' File.
#' @param environment Environment were the new variables will be located. By
#' default is parent environment.
#' @param verbose If set to \code{TRUE} useful messages are shown.
#' @param free.warnings If set to \code{TRUE} it shows any warnings
#' result of loading the content of the book's sheets.
#'
#' @details This function was developed by Carles Hernandez-Ferrer (carleshf) in
#' the package "loadxls" hosted on GitHub. As of 2020-07-20 the repo no longer
#' exists. The blog post about the package is below.
#'
#' https://carleshf87.wordpress.com/2016/01/24/loadxls-r-package/
#'
#' @export
readXLworkbook <- function(filename, environment=parent.frame(), verbose=TRUE,
free.warnings=TRUE) {
if(!file.exists(filename)) {
stop("Given file '", filename, "' does not exists.")
}
wb <- XLConnect::loadWorkbook(filename, create=FALSE)
trash <- lapply(XLConnect::getSheets(wb), function(sheet) {
if(verbose) {
message("Loading sheet '", sheet, "'.")
}
if(!free.warnings) {
suppressWarnings({
var <- XLConnect::readWorksheet(wb, sheet)
})
} else {
var <- XLConnect::readWorksheet(wb, sheet)
}
assign(sheet, var, envir=environment)
})
rm(trash)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.