transfer from old repo

apps/shinyDAG-1.0.0/global.R

@@ -0,0 +1,83 @@
+library(shiny)
+library(shinydashboard)
+library(DiagrammeR)
+library(dagitty)
+library(igraph)
+library(texPreview)
+library(shinyAce)
+library(shinyBS)
+library(dplyr)
+library(ggdag)
+library(shinyWidgets)
+library(shinyjs)
+library(shinycssloaders)
+library(shinyThings)
+source("R/node.R")
+source("R/edge.R")
+source("R/columns.R")
+source("R/module/clickpad.R")
+source("R/module/dagPreview.R")
+source("R/module/examples.R")
+source("R/xcolorPicker.R")
+source("R/aes_ui.R")
+# Additional libraries: tidyr, digest, rlang
+
+enableBookmarking(store = "server")
+
+tex_opts$set(list(
+  density = 1200,
+  margin = list(left = 0, top = 0, right = 0, bottom = 0),
+  cleanup = c("aux", "log")
+))
+
+
+
+# Functions ---------------------------------------------------------------
+
+DEBUG <- getOption("shinydag.debug", FALSE)
+debug_input <- function(x, x_name = NULL) {
+  if (!isTRUE(DEBUG)) return()
+
+  if (is.null(x)) {
+    cat(if (!is.null(x_name)) paste0(x_name, ":"), "NULL", "\n")
+  } else if (inherits(x, "igraph")) {
+    cat(capture.output(print(x)), "", sep = "\n")
+  } else if (length(x) == 1 && !is.list(x)) {
+    cat(if (!is.null(x_name)) paste0(x_name, ":"), if (length(names(x))) names(x), "-", x, "\n")
+  } else if (is.list(x) && length(x) == 0) {
+    cat(if (!is.null(x_name)) paste0(x_name, ":"), "list()", "\n")
+  } else {
+    if (!inherits(x, "data.frame")) x <- tibble::enframe(x)
+    cat(if (!is.null(x_name)) paste0(x_name, ":"), knitr::kable(x), "", sep = "\n")
+  }
+}
+debug_line <- function(...) {
+  if (!isTRUE(DEBUG)) return()
+  cli::cat_line(...)
+}
+
+
+buildUsepackage <- if (length(find("build_usepackage"))) texPreview::build_usepackage else texPreview::buildUsepackage
+
+# use y if x is.null
+`%||%` <- function(x, y) if (is.null(x)) y else x
+# use y if x is not null(ish) (otherwise NULL)
+`%??%` <- function(x, y) if (!is.null(x) && x != "") y
+
+warnNotification <- function(...) showNotification(
+  paste0(...), duration = 5, closeButton = TRUE, type = "warning"
+)
+
+invertNames <- function(x) setNames(names(x), unname(x))
+
+# String utilities ----
+
+str_and <- function(...) {
+  x <- c(...)
+  last <- if (length(x) > 2) ", and " else " and "
+  glue::glue_collapse(x, sep = ", ", last = last)
+}
+
+str_plural <- function(x, word, plural = paste0(word, "s")) {
+  if (length(x) > 1) plural else word
+}