R/idem_shiny.R

In idem: Inference in Randomized Controlled Trials with Death and Missingness

#' Run Web-Based \code{idem} application
#'
#' Call Shiny to run \code{idem} as a web-based application.
#'
#' @details
#'
#' A web browser will be brought up for users to access the GUI of \code{idem}.
#'
#' @examples
#' \dontrun{
#' run.idem()}
#'
#'
#' @export
#'
imShiny <- function() {

    req.pkgs        <- c("shiny", "shinythemes", "DT", "knitr", "rmarkdown", "pander");
    chk.uninstalled <- sapply(req.pkgs, function(x) {!requireNamespace(x, quietly = TRUE)});
    chk.inx         <- which(chk.uninstalled);

    if (0 < length(chk.inx)) {
        msg <- paste("For the GUI to work, please install ",
                     ifelse(1 < length(chk.inx), "packages ", "package "),
                     paste(req.pkgs[chk.inx], collapse = ", "),
                     " by \n install.packages(",
                     paste(paste("'", req.pkgs[chk.inx], "'", sep = ""), collapse = ", "),
                     ") \n  ",
                     sep = "");
        stop(msg, call. = FALSE);
    }


    appDir <- system.file("shiny", package = "idem")
    if (appDir == "") {
        stop("Could not find Shiny directory. Try re-installing `idem`.",
             call. = FALSE)
    }


    shiny::runApp(appDir, display.mode = "normal");
}