R/runCTApp.R

In ScitoVation/ClearanceTool: What the Package Does (Title Case,

# Hello, world!
#
# This is an example function named 'hello' 
# which prints 'Hello, world!'.
#
# You can learn more about package authoring with RStudio at:
#
#   http://r-pkgs.had.co.nz/
#
# Some useful keyboard shortcuts for package authoring:
#
#   Install Package:           'Ctrl + Shift + B'
#   Check Package:             'Ctrl + Shift + E'
#   Test Package:              'Ctrl + Shift + T'

# hello <- function() {
#   print("Hello, world!")
# }

#' @export
runClearanceTool <- function(name = "CTApp") {
  # appDir <- system.file("CTApp", "app", package = "ClearanceTool")
  # if (appDir == "") {
  #   stop("Could not find example directory. Try re-installing `mypackage`.", call. = FALSE)
  # }
  
  # shiny::runApp(appDir, display.mode = "normal")
  shiny::runApp(system.file(name,package="ClearanceTool"),launch.browser = T)
}

# interactiveRouteToRouteExtrapolation <- function(name = "RouteToRouteExtrapolation"){
#   shiny::runApp(system.file(name,package="plethem"),launch.browser = T)
# }