R/midocdemo.R

In midoc: A Decision-Making System for Multiple Imputation

#' Run an interactive vignette for the midoc package
#'
#' Runs an interactive version of the midoc vignette: Multiple Imputation DOCtor
#' (midoc). In the interactive version, you can apply midoc functions in
#' \link[shiny]{shiny-package} apps using your own DAG and data.
#'
#' @return A browser-based, interactive version of the midoc vignette
#' @export
#'
#' @examplesIf interactive()
#' # Run the interactive vignette
#' midocVignette()
midocVignette <- function() {
  appDir <- system.file("shinyexamples/midocdemoShiny.rmd", package = "midoc", mustWork=TRUE)
  if (appDir == "") {
    stop("Could not find example directory. Try re-installing `midoc`.", call. = FALSE)
  }

  rmarkdown::run(appDir)
}