insertUI Process

  1. But before, shiny:::processDeps(ui, session) returns a list with rendered HTML and dependency objects.
processDeps <- function(tags, session) {
  tags <- utils::getFromNamespace("tagify", "htmltools")(tags)
  ui <- takeSingletons(tags, session$singletons, desingleton = FALSE)$ui
  ui <- surroundSingletons(ui)
  dependencies <- lapply(
    resolveDependencies(findDependencies(ui, tagify = FALSE)),
    createWebDependency
  )
  names(dependencies) <- NULL

  list(
    html = doRenderTags(ui),
    deps = dependencies
  )
}