# \donttest{
if (interactive()) {
# Create memory for current project
memory <- project_memory()
# Store a successful code snippet
memory$store_snippet(
code = "df %>% filter(x > 0) %>% summarize(mean = mean(y))",
description = "Filter and summarize data",
tags = c("dplyr", "summarize")
)
# Store an error fix
memory$store_fix(
original_code = "mean(df$x)",
error = "argument is not numeric or logical",
fixed_code = "mean(as.numeric(df$x), na.rm = TRUE)",
fix_description = "Convert to numeric and handle NAs"
)
# Search for relevant snippets
memory$search_snippets("summarize")
}
# }
Run the code above in your browser using DataLab