inst/shinyapp/ui/smooth.R

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

# Smooth tab
tabItem(
  tabName = "sm",
  h2("Smooth interpolation"),
  br(),
  fluidRow(
    box(
      title = "Settings", status = "info",
      solidHeader = TRUE, collapsible = FALSE,
      column(
        12,
        fluidRow(
          column(4, uiOutput("hs_select_for_smooth")),
          column(4,
                 withBusyIndicatorUI(actionButton("smooth",
                                                  "Smooth",
                                                  class = "btn-success")),
                 class = "top25")
        ),
        fluidRow(
          column(6, selectInput("select_smooth", "Smooth method",
            choices = c("SG", "HVD", "EEMD", "LOESS"), selected = "SG"
          )),
          conditionalPanel(
            condition = "input.select_smooth == 'LOESS'",
            column(4, checkboxInput("interp", "Interpolation"), class = "top25")
          ),
          conditionalPanel(
            condition = "input.select_smooth == 'SG'",
            column(3, numericInput("sg_order", "p", 2, min = 2, step = 1)),
            column(3, numericInput("sg_length", "n", 21, min = 5, step = 2))
          ),
          conditionalPanel(
            condition = "input.select_smooth == 'HVD'",
            column(3, numericInput("hvd_cutf", "fp", 0.05,
                                   min = 0.001, max = 0.499, step = 0.01))
          ),
          conditionalPanel(
            condition = "input.select_smooth == 'EEMD'",
            column(
              3,
              numericInput("emd_cv_kfold", "cv.kfold", 2, min = 2, step = 1)
            ),
            column(
              3,
              numericInput("emd_cv_level", "cv.level", 2, min = 2, step = 1)
            )
          )
        )
      )
    ),
    box(
      title = "Notes", status = "info", solidHeader = TRUE, collapsible = FALSE,
      column(
        12,
        p("1. Choose the target spectra collection from
          the dropdown selector."),
        p("2. Check the interpolation checkbox to also enable interpolation."),
        p("3. The interpolation will be performed at integer frequencies."),
        p("4. 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("smoothed_table", height = "400px") %>% withSpinner())
    ),
    box(
      title = "Spectra Figure", status = "warning",
      solidHeader = TRUE, collapsible = TRUE,
      column(12, plotlyOutput("after_smooth_plot") %>% withSpinner())
    )
  )
)