R/app_ui_datatab.R

In mpascariu/MortalityCauses: Life expectancy monitor upscaled in R

# -------------------------------------------------------------- #
# Author: Marius D. PASCARIU
# Last Update: Wed Nov  8 13:50:55 2023
# -------------------------------------------------------------- #

#' UI - data page
#' @keywords internal
#' @export
ui_datatab <- function() {
  tagList(
    column(
      width = 12,
      offset = 0,
      data_panel()
    )
  )
}

#' @keywords internal
data_panel <- function() {
  
  tabsetPanel(
    type = "tabs",
    tabPanel(
      title = "Life Table Data",
      fluidPage(
        
        fluidRow(
          column(
            width = 10,
            offset = 1,
            DT::dataTableOutput("lt_initial"),
          ),
        ),
        
        fluidRow(
          column(
            width = 10,
            offset = 1,
            DT::dataTableOutput("lt_final")
          )
        )
      )
    ),
    
    tabPanel(
      title = "Cause of Death Data", 
      fluidPage(
        
        fluidRow(
          column(
            width = 12,
            offset = 0,
            DT::dataTableOutput("cod_initial")
          )
        ),
        
        fluidRow(
          column(
            width = 12,
            offset = 0,
            DT::dataTableOutput("cod_final")
          )
        ),
      )
    ),
    
    tabPanel(
      title = "Decomposition Data", 
      fluidRow(
        column(
          width = 12,
          offset = 0,
          DT::dataTableOutput("decomposition_data")
        )
      ),
    ),
    
    tabPanel(
      title = "Reduction Matrix", 
      fluidRow(
        column(
          width = 12,
          offset = 0,
          DT::dataTableOutput("reduction_matrix")
        )
      ),
    )
  )
  

}