R/runRandomizeIt.R

Defines functions runRandomizeIt

#' @export
runRandomizeIt <- function() {
  appDir <- system.file("shinyApp", package = "randomizeIt")
  if (appDir == "") {
    stop("Could not find example directory. Try re-installing `mypackage`.", call. = FALSE)
  }

  #
  # library(shiny)
  # library(shinydashboard)
  #
  # library(dplyr)
  # library(dipsaus)
  # library(mosaic)

  shiny::runApp(appDir, display.mode = "normal")
}
delma001/randomizeIt documentation built on Dec. 19, 2021, 10:10 p.m.