inst/hbcdtlfb/www/R/outputs/unit_routine.R

output$unit_routine <- renderText({
  req(input$substance_routine)
  glue("{strong(substances |> filter(name_short_html == input$substance_routine) |> pull(tlfb_unit))}")
})
ucsd-dsm/hbcd-tlfb documentation built on July 10, 2022, 5:46 p.m.