if (FALSE) {
## One file example
download_file(
path = system.file("assets/css/all.min.css", package = "downloadthis"),
output_name = "CSS file from downloadthis",
button_label = "Download css file",
button_type = "danger",
has_icon = TRUE,
icon = "fa fa-save",
self_contained = FALSE
)
## Multiple files example
path_files <- list.files(
path = system.file("assets/css", package = "downloadthis"),
full.names = TRUE
)
download_file(
path = path_files,
output_name = "Files from downloadthis",
button_label = "Download files",
button_type = "danger",
has_icon = TRUE,
icon = "fa fa-save",
self_contained = FALSE
)
}
Run the code above in your browser using DataLab