inst/hbcdtlfb/www/R/outputs/unit_P4.R

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