# \donttest{
# Example with temporary output file
temp_report <- file.path(tempdir(), "discovery_report.html")
results <- run_lbd(
search_query = "migraine treatment",
a_term = "migraine",
max_results = 10,
discovery_approaches = "abc",
include_visualizations = FALSE,
output_file = temp_report
)
# Clean up
unlink(temp_report)
unlink(list.files(tempdir(), pattern = "*.png", full.names = TRUE))
unlink(list.files(tempdir(), pattern = "*.html", full.names = TRUE))
# }
Run the code above in your browser using DataLab