R中的下拉列表实现

Question

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

df <- xmlToDataFrame(file.choose())

而不是使用 file.choose () {显然对话框揭示了很多系统结构}，建议使用下拉菜单，其中包含公司列表和文件链接。

这样的事情在 R 中可能吗？有没有一种简单的方法来实现它？

Answer 1

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

示例：

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

Answer 2

如果您不想进行 tcltk 编程，请尝试 gWidgets 软件包。

library(gWidgetstcltk) # or library(gWidgetsRGtk2), etc.
drp <- gdroplist(c("AAA", "BBB", "CCC"), container = gwindow())