mirror of
https://github.com/rstudio/shiny.git
synced 2026-02-08 21:55:02 -05:00
57 lines
1.6 KiB
R
Executable File
57 lines
1.6 KiB
R
Executable File
#!/usr/bin/env Rscript
|
|
|
|
# This script copies resources from Bootstrap Datepicker to shiny's inst
|
|
# directory.
|
|
|
|
# This script can be run from the command line or sourced from an R session.
|
|
library(rprojroot)
|
|
|
|
version <- "1.8.0"
|
|
|
|
# The git tag for the https://github.com/uxsolutions/bootstrap-datepicker repo.
|
|
tag <- paste0("v", version)
|
|
|
|
source_file <- file.path(tempdir(), paste0("libuv-", version, ".tar.gz"))
|
|
|
|
url <- paste0("https://github.com/uxsolutions/bootstrap-datepicker/archive/", tag, ".tar.gz")
|
|
download.file(url, source_file)
|
|
|
|
untar(source_file, exdir = tempdir())
|
|
source_dir <- file.path(tempdir(), paste0("bootstrap-datepicker-", version), "dist")
|
|
|
|
dest_dir <- rprojroot::find_package_root_file("inst", "www", "shared", "datepicker")
|
|
unlink(dest_dir, recursive = TRUE)
|
|
|
|
dir.create(dest_dir)
|
|
|
|
filenames <- c(
|
|
"js/bootstrap-datepicker.min.js",
|
|
"css/bootstrap-datepicker3.min.css",
|
|
file.path("locales",
|
|
dir(file.path(source_dir, "locales"), "\\.min\\.js$")
|
|
)
|
|
)
|
|
|
|
copy_files <- function(srcdir, destdir, filenames) {
|
|
# Create needed directories
|
|
dest_subdirs <- file.path(destdir, unique(dirname(filenames)))
|
|
for (dest_subdir in dest_subdirs) {
|
|
dir.create(dest_subdir, recursive = TRUE)
|
|
}
|
|
|
|
res <- file.copy(
|
|
from = paste0(srcdir, "/", filenames),
|
|
to = paste0(destdir, "/", filenames)
|
|
)
|
|
|
|
if (!all(res)) {
|
|
message("Problem copying ", sum(!res), " files: \n ",
|
|
paste0(filenames[!res], collapse = "\n ")
|
|
)
|
|
}
|
|
}
|
|
|
|
copy_files(source_dir, dest_dir, filenames)
|
|
|
|
message("Make sure to update the version to ", version, " in datePickerDependency!")
|