R/ui.R

In SteRoe/EpiVisR: A Tool for Exploratory Data Analysis and Visualisation within EWAS

ui <- shinyUI(
  fluidPage(
    # Some custom CSS for a smaller font for preformatted text
    htmltools::tags$head(
      htmltools::tags$style(HTML("      pre, table.table {        font-size: smaller;      }    "))
    ),

    inputTrait_UI("trait"),
    shiny::actionButton("btnSelectTrait", label = "Select Trait"),
    plotManhattanVolcano_UI("M"),
    shiny::actionButton("btnSelectProbe", label = "Select Probe"),
#    shinyBS::bsCollapse(id = "TraitsDNAmPlots", open = c("TraitsDNAmPlotsPanel"), multiple = TRUE,
    shinyBS::bsCollapse(id = "TraitsDNAmPlots", open = "TraitsDNAmPlotsPanel", multiple = TRUE,
      shinyBS::bsCollapsePanel("TraitsDNAmPlotsPanel",
        shiny::tabsetPanel(
          shiny::tabPanel("Trait vs DNAm",
                          shiny::fluidRow(
              plotTraitDNAm_UI("TraitDNAm")
            )
         ),
         shiny::tabPanel("Range DNAm",
                         shiny::fluidRow(
              plotDNAmProfile_UI("DNAmProfile")
            )
         ),
         shiny::tabPanel("Correlating Probes",
                         shiny::fluidRow(
              DTCorrelatingProbes_UI("CorrProbes")
            )
          )
        )
      )
    )
  )
)