inst/hbcdtlfb/www/R/outputs/substance_add_routine.R

In ucsd-dsm/hbcd-tlfb: HBCD TLFB shiny app

output$substance_add_routine <- renderUI({
  fluidRow(
    column(
      12, 
      virtualSelectInput(
        "substance_days_routine", 
        "Days of the Week:",
        choices = days_of_the_week,
        selected = c("Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "Sunday"),
        multiple = TRUE
      ),
      br(), br(),
      
      virtualSelectInput(
        "substance_routine", 
        "Substance:",
        choices = substances_names_grouped(),
        selected = character(0),
        disableOptionGroupCheckbox = TRUE,
        html = TRUE
      ),
      
      virtualSelectInput(
        "frequency_routine", 
        "Frequency:",
        choices = 1:100,
        selected = character(0),
        optionsCount = 6
      ),
      
      htmlOutput("unit_routine"),
      br(),
      
      actionBttn(
        "add_routine",
        span(icon("plus"), "Add Substance"), 
        style = "material-flat", 
        color = "danger")
    )
  )
})