inst/hbcdtlfb/www/R/outputs/table_substance_routine.R

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

output$table_substance_routine <- renderDT({
  req(table_substance_routine_data())
  
  datatable(
    table_substance_routine_data() |> select(-Id),
    selection = "single",
    rownames = FALSE,
    escape = FALSE,
    colnames = c(
      "Days of the week" = "Days",
      "Substance" = "Substance",
      "Frequency" = "Frequency"
    )
  )
})