select.listallows you to choose from a list. Also check out menu.
Examples:
Using menu
companies <- c("AAA","BBB","CCC")
links <- c("c:/file1","c:/secret/file3","c:/file3")
i <- menu(companies, graphics=TRUE, title="Choose company")
df <- xmlToDataFrame(links[i])
Using select.list
companies <- c("AAA","BBB","CCC")
links <- c("c:/file1","c:/secret/file3","c:/file3")
i <- select.list(companies, title="Choose company")
df <- xmlToDataFrame(links[companies==i])
,
menu_items <- paste(companies, " (", links, ")", sep="")
i <- select.list(menu_items, title="Choose company")
df <- xmlToDataFrame(links[menu_items==i])