inst/hbcdtlfb/www/R/outputs/unit_P3.R

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