if (interactive()) {
choice <- select(c("Yes", "No", "Maybe"))
index <- select(c("First", "Second", "Third"), return_index = TRUE)
# With scrolling for long lists
choice <- select(1:100, max_visible = 10)
}
Run the code above in your browser using DataLab