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

Answer 2

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

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

R中的下拉列表实现

2 个答案: