R中下拉列表的实现

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

df <- xmlToDataFrame(file.choose())

与其使用file.choose{正如对话框向系统结构的大部分显示的那样}，不如使用下拉菜单，其中包含公司列表和文件链接

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

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

示例：

使用菜单

若要在列表中显示名称和链接，请使用

menu_items <- paste(companies, " (", links, ")", sep="")
i <- select.list(menu_items, title="Choose company")
df <- xmlToDataFrame(links[menu_items==i])

---

如果您不想进入tcltk编程，请尝试gWidgets包

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

---

有一个list.files，它列出了目录中的所有文件，例如：list.filesgetwd会将其限制在您的工作目录中。我知道，它还不是互动的，但也许你可以从中做点什么。可能需要内置http帮助服务器的帮助。请查看。还有这个.Ok，它在R中工作。但是，当我使用Rscript从批处理文件运行它时，它不工作。是否有其他我应该使用的包/代码？xmlToDataFrame在RSXML包中。您在批处理模式下调用的R版本中安装了吗？@Anthony否。这是预期的行为。From？菜单：在非交互式会话中使用菜单是错误的。。您可以从TtclTk软件包中尝试tk_select.list。@Marek如何使其具有交互性？还有，如何将所选公司链接到其文件位置？@Anthony Help to interactive说，在Windows上，您可以使用-ess，但您应该使用Rterm而不是Rscript。我扩展我的回答，这就是你在“将选定公司链接到其文件位置”下的意思吗？

menu_items <- paste(companies, " (", links, ")", sep="")
i <- select.list(menu_items, title="Choose company")
df <- xmlToDataFrame(links[menu_items==i])

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