Manipulate

library(manipulate)
manipulate(plot(cars, xlim = c(0, x.max), type = type, ann = label), x.max = slider(10, 
    25, step = 5, initial = 25), type = picker(Points = "p", Line = "l", Step = "s"), 
    label = checkbox(TRUE, "Draw Labels"))

## Error: no such symbol rs_createUUID