inst/shinyapp/ui/average.R

In gongyh/RamanD2O: RamanD2O: an R/Shiny app designed for the analysis of cellular Ramanome data

# Average tab
tabItem(
  tabName = "avg",
  h2("Average"),
  br(),
  fluidRow(
    box(
      title = "Settings", status = "info",
      solidHeader = TRUE, collapsible = FALSE,
      column(
        12,
        fluidRow(
          column(4, uiOutput("hs_select_for_average")),
          column(4, uiOutput("hs_select_for_average_label")),
          column(4, withBusyIndicatorUI(actionButton("average",
                                                     "Average",
                                                     class = "btn-success")),
                 class = "top25")
        )
      )
    ),
    box(
      title = "Notes", status = "info", solidHeader = TRUE, collapsible = FALSE,
      column(
        12,
        p("1. Choose the target spectra collection
          from the dropdown selector."),
        p("2. Select a label to aggregate for caculating average."),
        p("3. Row of the spectra table (bottom left) can be selected
          to visual the spectrum (bottom right).")
      )
    )
  ),
  fluidRow(
    box(
      title = "Spectra Table", status = "warning",
      solidHeader = TRUE, collapsible = TRUE,
      column(12, DTOutput("average_table", height = "400px") %>% withSpinner())
    ),
    box(
      title = "Spectra Figure", status = "warning",
      solidHeader = TRUE, collapsible = TRUE,
      column(12, plotlyOutput("after_average_plot") %>% withSpinner())
    )
  )
)