server.R

# Define server logic
server <- function(input, output, session) {
  tableFilterPanelServer(id = "PETOverviewMother",
                         data = PETOverviewMother,
                         downloadFilename = "PETOverviewMother.csv")
  tableFilterPanelServer(id = "AnnualPETOverviewMother",
                         data = AnnualPETOverviewMother,
                         downloadFilename = "AnnualPETOverviewMother.csv")
  tableFilterPanelServer(id = "missingSummaryMother",
                         data = missingSummaryMother,
                         downloadFilename = "missingSummaryMother.csv")
  tableFilterPanelServer(id = "unknownSummaryMother",
                         data = unknownSummaryMother,
                         downloadFilename = "unknownSummaryMother.csv")
  tableFilterPanelServer(id = "gestationalAgeMatch",
                         data = gestationalAgeMatch,
                         downloadFilename = "gestationalAgeMatch.csv")
  tableFilterPanelServer(id = "valueDatesAgeDist",
                         data = valueDatesAgeDist,
                         downloadFilename = "valueDatesAgeDist.csv")
  tableFilterPanelServer(id = "outcomeModeMatch",
                         data = outcomeModeMatch,
                         downloadFilename = "outcomeModeMatch.csv")
  tableFilterPanelServer(id = "fetusesLivebornNumber",
                         data = fetusesLivebornNumber,
                         downloadFilename = "fetusesLivebornNumber.csv")
  tableFilterPanelServer(id = "PETOverviewBaby",
                         data = PETOverviewBaby,
                         downloadFilename = "PETOverviewBaby.csv")
  tableFilterPanelServer(id = "missingSummaryBaby",
                         data = missingSummaryBaby,
                         downloadFilename = "missingSummaryBaby.csv")
  tableFilterPanelServer(id = "fetusIdMatch",
                         data = fetusIdMatch,
                         downloadFilename = "fetusIdMatch.csv")
  tableFilterPanelServer(id = "valueWeightDist",
                         data = valueWeightDist,
                         downloadFilename = "valueWeightDist.csv")
  tableFilterPanelServer(id = "bitSetOverviewAll",
                         data = bitSetOverviewAll,
                         downloadFilename = "bitSetOverviewAll.csv")
  tableFilterPanelServer(id = "bitSetOverviewMother",
                         data = bitSetOverviewMother,
                         downloadFilename = "bitSetOverviewMother.csv")
  tableFilterPanelServer(id = "bitSetOverviewBaby",
                         data = bitSetOverviewBaby,
                         downloadFilename = "bitSetOverviewBaby.csv")

}