mirror of
https://github.com/rstudio/shiny.git
synced 2026-04-29 03:00:45 -04:00
518ef0f9f8
* main: (55 commits) Catch errors receiving individual input messages (#3843) Clarify what's ignored by ignoreNULL (#3827) Remove tests/testthat/apps/ (#3841) Correctly set width on `textarea` input element (#3838) Update selectize.js documentation URLs (#3836) test(json digits): Try unsetting option in test to get default behavior (#3837) Rebuild docs Update README.md fix typo in the docs for bindCache (#3825) Allow for `shiny:::toJSON()` to respect if `digits` has class `AsIs` to represent `use_signif=` (#3819) More complete `downloadButton()` example Rename actionQueue to taskQueue, add more context to the NEWS item (#3801) Remove unneeded packages from package.json Rebuild docs Rebuild shiny.js Update @types/node Rebuild yarn.lock Fix brush resetting behavior. Closes #3785 Bump fastmap dependency to 1.1.1 Sync package version (GitHub Actions) ...
28 lines
911 B
R
28 lines
911 B
R
# A scope where we can put mutable global state
|
|
.globals <- new.env(parent = emptyenv())
|
|
|
|
.onLoad <- function(libname, pkgname) {
|
|
# R's lazy-loading package scheme causes the private seed to be cached in the
|
|
# package itself, making our PRNG completely deterministic. This line resets
|
|
# the private seed during load.
|
|
withPrivateSeed(set.seed(NULL))
|
|
|
|
for (expr in on_load_exprs) {
|
|
eval(expr, envir = environment(.onLoad))
|
|
}
|
|
|
|
# Make sure these methods are available to knitr if shiny is loaded but not
|
|
# attached.
|
|
s3_register("knitr::knit_print", "reactive")
|
|
s3_register("knitr::knit_print", "shiny.appobj")
|
|
s3_register("knitr::knit_print", "shiny.render.function")
|
|
}
|
|
|
|
|
|
on_load_exprs <- list()
|
|
# Register an expression to be evaluated when the package is loaded (in the
|
|
# .onLoad function).
|
|
on_load <- function(expr) {
|
|
on_load_exprs[[length(on_load_exprs) + 1]] <<- substitute(expr)
|
|
}
|