read_excel_whole <- function(fn) {
if (is_available("xlsx")) {
# preferred
read_xls_from_xlsx(fn)
} else {
message("Using readxl to read xls. Manually check date and numeric cells. (for better result install xlsx package)")
read_excel_whole_readxl(fn)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.