app.R

library(shiny)
library(rlang)
library(tidyverse)
library(rmarkdown)

library(ggplot2)
library(GGally)
library(gridExtra)
library(plotly, exclude = "filter")
library(pals)

library(reshape2)
library(DT)
library(table1)

library(xlsx)
library(writexl)
library(readxl)


source("data_ui.R", local = TRUE)
#source("qc_ui.R", local = TRUE)
source("manifest_ui.R", local = TRUE)

ui <- shinyUI(fluidPage(
  titlePanel("CARGO Manifest Generator", windowTitle = "CARGO Manifest Generator"),
  # tabsetPanel( id = "top_tabs", data_ui, qc_ui, manifest_ui )
  tabsetPanel( id = "top_tabs", data_ui, manifest_ui )
  
  # tabsetPanel( id = "top_tabs", qc_ui, manifest_ui )
  # tabsetPanel( id = "top_tabs", data_ui, manifest_ui )
  # tabsetPanel( id = "top_tabs", data_ui, qc_ui )
))

source("data_server.R", local = TRUE)
#source("qc_server.R", local = TRUE)
source("manifest_server.R", local = TRUE)

server <- shinyServer(function(input, output, session) {
  data_server(input, output, session)
  #qc_server(input, output, session)
  manifest_server(input, output, session)
})

shinyApp(ui, server)