Thực hiện danh sách thả xuống trong R

Question

Tôi đang sử dụng mã sau đây cho Ứng dụng Giá Chia sẻ mà tôi đã phát triển (với rất nhiều trợ giúp từ những người ở đây được đánh giá cao!). Một trong những điều cần làm là cho phép người dùng chọn một công ty để phân tích từ lưu trữ XML Files, tôi đã được sử dụng đoạn mã sau để làm điều này:

df <- xmlToDataFrame(file.choose()) 

Thay vì sử dụng file.choose() {như dường như hộp thoại cho thấy nhiều cấu trúc hệ thống}, nó đã được đề xuất sử dụng một trình đơn thả xuống, với một danh sách các công ty và một liên kết đến tệp.

Điều đó có thể xảy ra trong R và có cách thực hiện dễ dàng không?

Answer 1

select.list cho phép bạn chọn từ danh sách. Kiểm tra cũng menu.

Ví dụ:

Sử dụng 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]) 

Sử dụng 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]) 

Nếu bạn muốn hiển thị tên và liên kết trong danh sách sau đó sử dụng

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

Answer 2

Nếu bạn không muốn tham gia chương trình tcltk, hãy thử các gói gWidgets.

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