| download_this | R Documentation |
Wrapper around bsplus::bs_button() to provide a download button for HTML
outputs in R Markdown. Internally, the function writes the file to
tempdir(), encodes it, and produces the download button. Currently,
Internet Explorer does not support downloading embedded files. For
downloading links, files, or directories, see download_link(),
download_file(), and download_dir().
download_this(
.data,
...,
output_name = NULL,
output_extension = c(".csv", ".xlsx", ".rds"),
button_label = "Download data",
button_type = c("default", "primary", "success", "info", "warning", "danger"),
icon = "fa fa-save",
self_contained = FALSE,
csv2 = TRUE,
ggsave_args = list()
)
.data |
A data frame or (named) list to write to disk. See 'Examples' for more details. |
... |
attributes (named arguments) and children (unnamed arguments) of
the button, passed to |
output_name |
Name of of the output file, if |
output_extension |
Extension of the output file. Currently, |
button_label |
Character (HTML), button label |
button_type |
Character, one of the standard Bootstrap types |
icon |
Fontawesome tag e.g.: "fa fa-save", set to |
self_contained |
A boolean to specify whether your HTML output is
self-contained. Default to |
csv2 |
A boolean to specify whether to use |
ggsave_args |
List of arguments to pass to |
htmltools::tag, <button>
This example will write the mtcars dataset to tempdir() and produce the
download button for the file mtcars dataset.csv with the fa fa-save icon
on the Download data label.
## Not run:
# Passing a data frame to the function
mtcars %>%
download_this(
output_name = "mtcars dataset",
output_extension = ".csv",
button_label = "Download data",
button_type = "warning",
icon = "fa fa-save"
)
# Passing a list with data frames to the function
list(mtcars, iris) %>%
download_this(
output_name = "mtcars and iris datasets",
output_extension = ".xlsx",
button_label = "Download data",
button_type = "warning",
icon = "fa fa-save"
)
# Passing a named list with data frames to the function
list("mtcars dataset" = mtcars, "iris dataset" = iris) %>%
download_this(
output_name = "mtcars and iris datasets",
output_extension = ".xlsx",
button_label = "Download data",
button_type = "warning",
icon = "fa fa-save"
)
# Passing any R object to the function
vector_example <- 1:10
linear_model <- lm(mpg ~ gear, data = mtcars)
list(mtcars, iris, vector_example, linear_model) %>%
download_this(
output_name = "datasets, vector, and linear model",
output_extension = ".rds",
button_label = "Download as rds",
button_type = "warning",
icon = "fa fa-save"
)
## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.