Как вы обновляете содержимое R gWidget? - PullRequest
Новая
       15

Как вы обновляете содержимое R gWidget?

6 голосов
/ 21 апреля 2010

Я создаю графический интерфейс в R, используя gWidgets (точнее gWidgetstcltk). Я хотел бы знать, как обновить содержимое виджетов типа выбора, таких как gdroplist и gtable. В настоящее время у меня есть довольно хакерский метод удаления виджета и его повторного создания. Я уверен, что есть лучший способ.

Этот простой пример отображает все переменные в глобальной среде. 

library(gWidgets)
library(gWidgetstcltk)

create.widgets <- function()
{
  grp <- ggroup(container = win)
  ddl <- gdroplist(ls(envir = globalenv()), 
    container = grp)
  refresh <- gimage("refresh", 
    dirname   = "stock",
    container = grp,
    handler   = function(h, ...)
    {
      if(exists("grp") && !is.null(grp)) 
      {
        delete(win, grp)
      }
      create.widgets()   
    }
  )
}

win <- gwindow()
create.widgets()

Ответы [ 3 ]

4 голосов
/ 13 мая 2010

Я говорил с Джоном Верзани, создателем пакетов gWidgets *, и ответ невероятно прост (хотя и не совсем интуитивен). Вы получаете доступ к содержимому виджетов типа списка с помощью widget_name[]. 

library(gWidgets)
library(gWidgetstcltk)

get_list_content <- function() ls(envir = globalenv())  # or whatever

win <- gwindow()
grp <- ggroup(container = win)
ddl <- gdroplist(get_list_content(), container = grp)
refresh <- gimage("refresh", 
  dirname   = "stock",
  container = grp,
  handler   = function(h, ...) ddl[] <- get_list_content()   
)

Обратите внимание, что существуют некоторые ограничения: списки переключателей должны оставаться одинаковой длины. 

win <- gwindow()
rb <- gradio(1:10, cont = win)
rb[] <- 2:11     # OK
rb[] <- 1:5      # Throws an error; can't change length.
2 голосов
/ 21 апреля 2010

AFAIK Эти события обновления часто принадлежат оконному менеджеру, поэтому это может быть сложно.

1 голос
/ 19 октября 2011

Хотя заголовок вопроса неоднозначен, будь то разговоры о принудительном визуальном обновлении или просто изменении содержимого, у меня недавно была похожая проблема с обновлением gstatusbar до и после длительной работы. Хотя существует альтернатива REPL с именем REventLoop , использование таймера tcl показалось мне очень удобным. 

tcl("after", 300, my_long_operation)

Поэтому я обновляю gstatusbar перед продолжительной работой, затем устанавливаю таймер, который менее чем за секунду запускает мою функцию, которая занимает некоторое время, и в конце этой функции я обновляю gstatusbar, используя что-то вроде 

svalue(sb) <- "Ready"
...