R/runJaccardApp.R

In ncchung/jaccard: Testing similarity between binary datasets using Jaccard/Tanimoto coefficients

#' Launch an interactive Shiny app on a local network 
#'
#' @importFrom shiny runApp
#' @export runJaccardApp
runJaccardApp <- function() {
  appDir <- system.file("shinyapps", "jaccard-shiny", package = "jaccard")
  if (appDir == "") {
    stop("Could not find example directory. Try re-installing `jaccard`.", call. = FALSE)
  }

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