R/ui_addin.R

In javierluraschi/pins: Pin, Discover and Share Resources

#' @keywords internal
#' @export
ui_addin_pin_find <- function() {
  shinyAppDir <- get("shinyAppDir", envir = asNamespace("shiny"))
  dialogViewer <- get("dialogViewer", envir = asNamespace("shiny"))
  runGadget <- get("runGadget", envir = asNamespace("shiny"))

  app <- shinyAppDir(system.file("rstudio/shinyaddin", package = "pins"))
  runGadget(app, viewer = dialogViewer("Find Pin"))
}