inst/app/ui.R

In thierrycnam/igfuns: Analyzes of Ig sequencing data

library(shiny)
choices <- list("sample" = "sample",
                "b_cell_subset" = "b_cell_subset")
ui <-
  navbarPage(
    "STA212",
    tabPanel("Data",
             fluidPage(
               sidebarLayout(
                 sidebarPanel(
                   width = 1,
                   h5('immunoblogulin')
                 ),
                 mainPanel(
                   tabsetPanel(
                     tabPanel(
                       "Data table",
                       dataTableOutput("table_bregs")
                     ),
                     tabPanel(
                       "Summary",
                       verbatimTextOutput("text_bregs")
                     )
                   )
                 )
               )
             )
    ),
    tabPanel("Descriptive Statistics",
             fluidPage(
               sidebarLayout(
                 sidebarPanel(
                   width = 1,
                   h5('immunoblogulin')
                 ),
                 mainPanel(
                   tabsetPanel(
                     tabPanel(
                       "Gene Frequencies",
                       fluidRow(
                         column(width = 4, h3("V Gene usage")),
                         column(width = 4, h3("J Gene usage"))
                       ),
                       fluidRow(
                         column(width = 4, dataTableOutput("v_gene_table")),
                         column(width = 4, dataTableOutput("j_gene_table"))
                       ),
                       fluidRow(
                         column(width = 4, plotOutput("donut_v_plot")),
                         column(width = 4, plotOutput("donut_j_plot"))
                       ),
                       fluidRow(
                         column(width = 4, uiOutput("ui_select_input_1")),
                         column(width = 4, verbatimTextOutput("print_select_input_1"))
                       )
                     ),
                     tabPanel(
                       "Summary"
                     )
                   )
                 )
               )
             )
    ),
    tabPanel("Chisquare Stats",
             fluidPage(
               sidebarLayout(
                 sidebarPanel(
                   width=1
                 ),
                 mainPanel(
                   "Chisquare test",
                   fluidRow(
                     column(width=6, h3("Observed")),
                     column(width=6, h3("Expected"))
                   ),
                   fluidRow(
                     column(width=6, tableOutput("chisq_table_1")),
                     column(width=6, tableOutput("chisq_table_2"))
                   ),
                   fluidRow(
                     verbatimTextOutput("chisq_result")
                   )
                   # fluidRow(
                   #   column(width=6, h3("Observed")),
                   #   column(width=6, h3("Expected"))
                   # ),
                   # fluidRow(
                   #   column(width=6, tableOutput("fisher_table_1")),
                   #   column(width=6, tableOutput("fisher_table_2"))
                   # ),
                   # fluidRow(
                   #   verbatimTextOutput("fisher_result")
                   # )
                 )
               )
             )
    )
  )