R/appFunction.R

In lerch-a/HaplotypR: HaplotypR, a pipeline to analyse amplicon deep sequencing genotyping data

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)
}