inst/hbcdtlfb/www/R/outputs/radio_buttons_period.R

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

output$radio_buttons_period <- renderUI({
  req(tlfb_v())
  
  if(tlfb_v() == 1)  choices <- c("Routine", "Pre-LMP", "Post-LMP", "Last Week")
  if(tlfb_v() == 2)  choices <- c("Routine", "Last Two Weeks Before Delivery")
  
  radioGroupButtons(
    "nature", 
    NULL,
    choices = choices,
    selected = "Routine", 
    individual = FALSE,
    checkIcon = list(yes = icon("ok", lib = "glyphicon")),
    width = "100%"
  )
})