#!/usr/bin/env Rscript
# This script downloads DataTabes from its GitHub repository,
# https://github.com/DataTables/DataTables
# This script can be sourced from RStudio, or run with Rscript.
version <- "1.10.22"
cdn <- file.path("https://cdn.datatables.net", version)
dest <- rprojroot::find_package_root_file("inst/www/shared/datatables")
withr::with_dir(dest, {
files <- c(
"js/jquery.dataTables.min.js",
"js/dataTables.bootstrap.js",
"css/dataTables.bootstrap.css",
"images/sort_desc.png",
"images/sort_desc_disabled.png",
"images/sort_both.png",
"images/sort_asc.png",
"images/sort_asc_disabled.png"
)
lapply(files, function(f) {
download.file(file.path(cdn, f), f)
})
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.