inst/app/ui.R

In subugoe/shinycaas: Deploy shiny applications to container as a service (CaaS)

bootstrapPage(
  p("This was build at", Sys.time(), "."),
  selectInput(
    inputId = "n_breaks",
    label = "Number of bins in histogram (approximate):",
    choices = c(10, 20, 35, 50),
    selected = 20
  ),

  checkboxInput(
    inputId = "individual_obs",
    label = strong("Show individual observations"),
    value = FALSE
  ),

  checkboxInput(
    inputId = "density",
    label = strong("Show density estimate"),
    value = FALSE
  ),

  plotOutput(outputId = "main_plot", height = "300px"),

  # Display this only if the density is shown
  conditionalPanel(
    condition = "input.density == true",
    sliderInput(
      inputId = "bw_adjust",
      label = "Bandwidth adjustment:",
      min = 0.2, max = 2, value = 1, step = 0.2
    )
  )
)