Назначение команды меню условного файла R / Tcltk - PullRequest
Новая
       38

Назначение команды меню условного файла R / Tcltk

0 голосов
/ 08 января 2020

Я хотел бы, чтобы при определенных условиях выполнялись изменения команды функции меню после ее создания. Учитывая код: 

createMenu <- function(e) {
  topMenu <- tkmenu(e$wnd)
  tkconfigure(e$wnd, menu = topMenu)

  fileMenu <- tkmenu(topMenu, tearoff = FALSE)  # TOP menu
  tkadd(fileMenu, "command", label = "Load ply File",command = function() loadPly(e))
  tkadd(fileMenu, "command", label = "Save to DGT",command = function() saveToDgt(e))
  tkadd(fileMenu, "command", label = "Load DGT File",command = function() openDgt(e))
  tkadd(fileMenu, "command", label = "Exit", command = function() tkdestroy(e$wnd))
  tkadd(topMenu, "cascade", label = "File", menu = fileMenu)
}

Есть ли способ в R или tcltk изменить утилиту команды после ее инициализации? Я не знаю, как получить точную опцию выпадающего меню, так как она кажется недоступной.

...