## -----------------------------------------------------------------------------
## shinyDAG app
## -----------------------------------------------------------------------------
## 
## Copy from https://github.com/gadenbuie/ShinyDAG for local deployment
## 

old_wd<-getwd()

setwd(paste0(old_wd,"/apps/shinyDAG-1.0.0"))
shiny::runApp()

source(paste0(old_wd,"/apps/app_deploy.R"))

setwd(old_wd)