# Create reporter
reporter <- PRISMAReporter$new()
# Create sample search strategy for documentation
search_strategy <- list(
terms = c("systematic review", "meta-analysis", "evidence synthesis"),
databases = c("PubMed", "Embase", "Cochrane"),
date_range = as.Date(c("2020-01-01", "2023-12-31")),
filters = list(language = "English", study_type = "RCT")
)
# Generate search strategy documentation
strategy_docs <- reporter$document_search_strategy(search_strategy)
print(strategy_docs)
# Create sample screening data for PRISMA diagram
screening_data <- data.frame(
id = 1:100,
duplicate = c(rep(FALSE, 80), rep(TRUE, 20)),
title_abstract_screened = c(rep(TRUE, 80), rep(FALSE, 20)),
full_text_eligible = c(rep(TRUE, 25), rep(FALSE, 75)),
included = c(rep(TRUE, 15), rep(FALSE, 85)),
excluded_title_abstract = c(rep(FALSE, 25), rep(TRUE, 55), rep(FALSE, 20)),
excluded_full_text = c(rep(FALSE, 15), rep(TRUE, 10), rep(FALSE, 75))
)
# Generate PRISMA diagram
prisma_plot <- reporter$generate_prisma_diagram(screening_data)
print("PRISMA diagram created successfully")
Run the code above in your browser using DataLab