library(shinyngs)
library(markdown)
esel <- readRDS("data.rds")
app <- prepareApp("rnaseq", esel)
shiny::shinyApp(app$ui, app$server)