Nothing
# function to detect if xlsx working
is_xlsx_ok <- function() {
if (!is_available("xlsx")) {
return(FALSE)
}
sample_xls <- system.file("extdata", "messy", "xls.pdf", package = "tidycells", mustWork = TRUE)
suppressMessages(
suppressWarnings(
dxt <- try(xlsx::read.xlsx(sample_xls, sheetIndex = 1), silent = TRUE)
)
)
if (is.data.frame(dxt)) {
return(TRUE)
} else {
return(FALSE)
}
}
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.