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