if (FALSE) {
plot_code <- "
ggplot(mtcars, aes(x = wt, y = mpg)) +
geom_point()
"
optimized <- goose_optimize_plot(plot_code,
goals = c("aesthetics", "clarity"))
}
Run the code above in your browser using DataLab