library(shiny)
library(BatchQC)
ui <- navbarPage(
title = paste("BatchQC v", packageVersion("BatchQC"), sep = ""),
id="BatchQC",
fluid=TRUE,
#theme = "bootstrap.min.css",
source(file.path("ui", "ui.R"),  local = TRUE)$value
)
server <- function(input, output, session) {
source(file.path("server", "server.R"),  local = TRUE)$value
}
shinyApp(ui = ui, server = server)
runApp()
runApp()
runApp()
ui <- navbarPage(
title = paste("BatchQC v", packageVersion("BatchQC"), sep = ""),
id="BatchQC",
fluid=TRUE,
theme = "bootstrap.min.css",
source(file.path("ui", "ui_01.R"),  local = TRUE)$value,
source(file.path("ui", "ui_02.R"),  local = TRUE)$value
)
ui <- navbarPage(
title = paste("BatchQC v", packageVersion("BatchQC"), sep = ""),
id="BatchQC",
fluid=TRUE,
theme = "bootstrap.min.css",
source(file.path("ui", "ui_01.R"),  local = TRUE)$value,
source(file.path("ui", "ui_02.R"),  local = TRUE)$value
)
server <- function(input, output, session) {
source(file.path("server", "server_01.R"),  local = TRUE)$value
source(file.path("server", "server_02.R"),  local = TRUE)$value
}
shinyApp(ui = ui, server = server)
