R/ui_connection.R

In javierluraschi/pins: Pin, Discover and Share Resources

#' @keywords internal
#' @export
ui_connection_create <- function() {
  shinyAppDir <- get("shinyAppDir", envir = asNamespace("shiny"))
  shinyAppDir(system.file("rstudio/shinycon", package = "pins"))
}