1getDefaultReactiveDomain <- function() {
2  shiny::getDefaultReactiveDomain()
3}
4
5# Shiny internal funcs needed for nav() (i.e., tabPanel()) logic
6
7processDeps <- function(...) {
8  getFromNamespace("processDeps", "shiny")(...)
9}
10
11p_randomInt <- function(...) {
12  getFromNamespace("p_randomInt", "shiny")(...)
13}
14
15# Copy of shiny::getCurrentThemeVersion()
16# (copied to avoid >1.6.0 dependency)
17getCurrentThemeVersion <- function() {
18  theme <- shiny::getCurrentTheme()
19  if (is_bs_theme(theme)) theme_version(theme) else "3"
20}
21
22# Copy of shiny:::anyNamed()
23anyNamed <- function(x) {
24  if (length(x) == 0)
25    return(FALSE)
26  nms <- names(x)
27  if (is.null(nms))
28    return(FALSE)
29  any(nzchar(nms))
30}
31
32