R/appFunction.R

Defines functions getAppOptionDevel runShinyApp

runShinyApp <- function(devel=FALSE){
  require(shiny)
  options(HaplotypR.devel=devel)
  runApp(system.file(package = "HaplotypR", "shinyApp", "app.R"))
}

getAppOptionDevel <- function(){
  opt <- getOption("HaplotypR.devel")
  if(is.null(opt))
    return(FALSE)
  else
    return(opt)
}
lerch-a/HaplotypR documentation built on July 7, 2023, 7:58 a.m.