output$unit_routine <- renderText({
req(input$substance_routine)
glue("{strong(substances |> filter(name_short_html == input$substance_routine) |> pull(tlfb_unit))}")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.