R/ct_shiny.R

In olssol/ctdesign: Clinical Trial Design

#' Run Web-Based application
#'
#' Call Shiny to run \code{ctdesign} as a web-based application.
#'
#' @details
#'
#' A web browser will be brought up for users to access the GUI
#'
#'
#' @export
#'
rd_shiny <- 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 = "ctdesign")
    if (appDir == "") {
        stop("Could not find Shiny directory. Try re-installing `idem`.",
             call. = FALSE)
    }

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