R/runMSMplus.R

In nskourlis/MSMplus: Prepare MSMplus input files and locally deploys the MSMplus app

#' @title Local deployment of MSMplus application
#' @description runMSMplus() : Launches MSMplus locally. We advice to click at "Open in a Browser" option
#'  of the window that will open. It works best with the Google Chrome Browser
#' @return OUTPUT_DESCRIPTION
#' @details Details on how to use the MSMplus app can be found in the app platform.
#' @examples 
#' \dontrun{
#' if(interactive()){
#'  #EXAMPLE
#'  runMSMplus()
#'  }
#' }
#' @seealso 
#'  \code{\link[shiny]{runApp}}
#' @rdname runMSMplus
#' @export 
#' @importFrom shiny runApp
runMSMplus <- function() {
  
  #plotly_username="niksko",plotly_api_key="32EnvMNc76IU4ybqXMDL"
 # shiny::shinyOptions(plotly_username1 = plotly_username)
  #shiny::shinyOptions(plotly_api_key1 = plotly_api_key)
  
  appDir <- system.file("Shiny", "MSMplus", package = "MSMplus")
  if (appDir == "") {
    stop("Could not find example directory. Try re-installing `mypackage`.", call. = FALSE)
  }
  
  shiny::runApp(appDir, display.mode = "normal")
}