# NOT RUN {
p1 <- function() hist(mtcars$disp)
p2 <- function() hist(mtcars$drat)
# You can also call these functions in a R Markdown document or
# in a Shiny application:
widget_toggle(p1, p2)
widget_slide(p1, p2)
widget_diff(p1, p2)
# }
Run the code above in your browser using DataLab