Nothing
#' Open a data frame in Excel
#'
#' @param dfr the data frame
#'
#' @keywords internal
#'
#' @return 42
util_open_in_excel <- function(dfr) {
withr::with_tempdir({
fn <- paste0(
as.character(substitute(dfr)), ".xlsx")
rio::export(dfr, format = "xlsx", file = fn)
fn <- normalizePath(fn)
browseURL(fn)
rstudioapi::showPrompt("Excel", "Close, when you are finished using Excel")
})
invisible(42)
}
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.