# Create reproducibility manager
manager <- ReproducibilityManager$new()
# Create sample search strategy
search_strategy <- list(
terms = c("systematic review", "meta-analysis"),
databases = c("PubMed", "Embase"),
timestamp = Sys.time(),
date_range = as.Date(c("2020-01-01", "2023-12-31"))
)
# Create sample search results
search_results <- data.frame(
id = paste0("article_", 1:20),
title = paste("Research Study", 1:20),
abstract = paste("Abstract for study", 1:20),
source = "Journal of Research",
date = Sys.Date() - sample(1:365, 20, replace = TRUE),
stringsAsFactors = FALSE
)
# Create sample analysis configuration
analysis_config <- list(
gold_standard = paste0("article_", sample(1:20, 5)),
method = "precision_recall",
parameters = list(threshold = 0.8)
)
# Create reproducible package (writes to tempdir())
package_path <- manager$create_repro_package(
search_strategy = search_strategy,
results = search_results,
analysis_config = analysis_config
)
print(paste("Package created at:", package_path))
# Generate audit trail (create mock analyzer object for demonstration)
mock_analysis <- list(
search_results = search_results,
metadata = list(timestamp = Sys.time())
)
class(mock_analysis) <- "mock_analyzer"
audit_trail <- manager$gen_audit_trail(mock_analysis)
print("Audit trail generated successfully")
Run the code above in your browser using DataLab