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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.