mirror of
https://github.com/rstudio/shiny.git
synced 2026-02-06 20:55:24 -05:00
36 lines
1.2 KiB
R
Executable File
36 lines
1.2 KiB
R
Executable File
#!/usr/bin/env Rscript
|
|
|
|
# This script copies resources from ion.RangeSlider to shiny's inst
|
|
# directory. The ion.rangeSlider/ project directory should be on the same level
|
|
# as the shiny/ project directory.
|
|
|
|
# The version of ion.rangeSlider that we use is modified from the base version
|
|
# in two ways:
|
|
# * In our version, mouse events on the slider are not propagated to lower
|
|
# layers (#711, #1630).
|
|
# * We include a custom skin for Shiny.
|
|
|
|
# This script can be sourced from RStudio, or run with Rscript.
|
|
|
|
# Returns the file currently being sourced or run with Rscript
|
|
thisFile <- function() {
|
|
cmdArgs <- commandArgs(trailingOnly = FALSE)
|
|
needle <- "--file="
|
|
match <- grep(needle, cmdArgs)
|
|
if (length(match) > 0) {
|
|
# Rscript
|
|
return(normalizePath(sub(needle, "", cmdArgs[match])))
|
|
} else {
|
|
# 'source'd via R console
|
|
return(normalizePath(sys.frames()[[1]]$ofile))
|
|
}
|
|
}
|
|
|
|
srcdir <- file.path(dirname(thisFile()), "../../ion.rangeSlider")
|
|
destdir <- file.path(dirname(thisFile()), "../inst/www/shared/ionrangeslider")
|
|
|
|
file.copy(file.path(srcdir, "js/ion.rangeSlider.js"), file.path(destdir, "js"),
|
|
overwrite = TRUE)
|
|
file.copy(file.path(srcdir, "css"), destdir, recursive = TRUE)
|
|
file.copy(file.path(srcdir, "img"), destdir, recursive = TRUE)
|