if (FALSE) {
result <- tite.boinet(...)
tables <- create_boinet_tables(result,
oc_title = "Trial Operating Characteristics",
design_title = "Design Specifications")
# Print tables
print(tables$oc_table)
print(tables$design_table)
# Save tables
tables$oc_table |> gt::gtsave("oc_results.html")
}
Run the code above in your browser using DataLab