r - R中的下拉列表实现

Question

我正在为我一直在开发的股票价格应用程序使用以下代码(非常感谢这里的人们的大量帮助!)。它应该做的一件事是允许用户从存储的 XML 文件中选择一家公司进行分析，我一直在使用以下代码来执行此操作:

df <- xmlToDataFrame(file.choose())

与其使用 file.choose () {因为显然对话框显示了大部分系统结构}，建议使用下拉菜单，其中包含公司列表和文件链接。

在 R 中可以实现这样的事情吗，是否有一种简单的实现方式？

Answer 1

select.list允许您从列表中进行选择。另请检查 menu .

例子:

使用 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])

使用 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])