0

我正在 R 中创建一个相当简单的 GUI，它根据用户选择的值创建不同数据分析的图形。我无法弄清楚如何使用户能够从列表中选择多个值。我正在研究的方法如下。问题区域在 if 语句中，我需要将用户选择放入列表中。

CallSpecies<-function(options){
  dialog<-gtkMessageDialog(NULL,0,"question","ok-cancel","Choose a species",show=FALSE)

  sppmodel<-rGtkDataFrame(Species)

  sppview<-gtkTreeView(sppmodel)

  sppview$getSelection()$setMode("multiple")

  column<-gtkTreeViewColumn("Species Code",gtkCellRendererText(),text=0)

  column1<-gtkTreeViewColumn("Common Name",gtkCellRendererText(),text=1)

  sppview$appendColumn(column)

  sppview$appendColumn(column1)

  scrolled_window<-gtkScrolledWindow()
  scrolled_window$setSizeRequest(-1,150)
  scrolled_window$add(sppview)

  dialog[["vbox"]]$add(scrolled_window)

  if (dialog$run()==GtkResponseType["ok"]){

  }
  dialog$destroy()

}
4

1 回答 1

0

在大量阅读其他语言的文档并将其翻译成 R 语法后，我最终解决了自己的问题。我已经编辑了代码以显示我的解决方案。我绝不是 R 或 GTK 方面的专家，但这似乎有效。

CallSpecies<-function(options){

  dialog<-gtkMessageDialog(NULL,0,"question","ok-cancel","Choose a species. Hold control and click to select multiple species.",show=FALSE)

  sppmodel<-rGtkDataFrame(Species)

  sppview<-gtkTreeView(sppmodel)

  sppview$getSelection()$setMode("multiple")

  column<-gtkTreeViewColumn("Species Code",gtkCellRendererText(),text=0)

  column1<-gtkTreeViewColumn("Common Name",gtkCellRendererText(),text=1)

  sppview$appendColumn(column)

  sppview$appendColumn(column1)

  scrolled_window<-gtkScrolledWindow()
  scrolled_window$setSizeRequest(-1,150)
  scrolled_window$add(sppview)

  dialog[["vbox"]]$add(scrolled_window)

  spplist<-c()

  if (dialog$run()==GtkResponseType["ok"]){
    selection<-sppview$getSelection()
    sel_paths<-selection$getSelectedRows()$retval
    i=1
    for (p in sel_paths){
      sel_row<-sel_paths[[i]]$getIndices()[[1]]
      sel_row<-sel_row+1
      elem<-Species[sel_row,"SpeciesCode"]
      elem<-as.character(elem)
      spplist<-c(spplist,elem)
      i<-i+1
    }
    print("spplist")
    print(spplist)
  }
  dialog$destroy()

}
于 2019-07-01T18:27:59.903 回答