powered by
pickItems(items, title1 = "Items to pick", title2 = "Picked items")
items
title1
title2
dataViewer
options <- paste("Option", 1:10, sep = "") if(interactive()){ pickItems(options) }
Run the code above in your browser using DataLab