if (FALSE) {
library(animint2)
p1 <- ggplot(mtcars, aes(x = mpg, y = wt)) +
geom_point()
p2 <- ggplot(mtcars, aes(x = hp, y = wt)) +
geom_point()
viz <- list(plot1 = p1, plot2 = p2)
animint2pages(
viz,
github_repo = "my_animint2_plots",
commit_message = "New animint",
private = TRUE)
}
Run the code above in your browser using DataLab