Передать аргумент функции в среде R, (gWidget) - PullRequest
Новая
       24

Передать аргумент функции в среде R, (gWidget)

0 голосов
/ 12 марта 2020

У меня есть список данных таблицы: 

PID_short   PID_full
   420      44101445
   419      44101375
   418      44101344
   417      44100125
   ...        ...
    3       44054648
    2       68049258
    1       68051786

И вот мой код: 

require(gWidgets)

w <- gwindow("bigfoot") 
g <- ggroup(cont = w, horizontal = FALSE) 
g1 <- ggroup(cont = w) 
g2 <- ggroup(cont = w)
Vl <- list () 

fr3 <- gframe ("", cont=g, horizontal=TRUE) 
l3 <- glayout ( cont = fr3 , expand=TRUE) 
l3 [1,1] <- NbS <- glabel("PID_short", cont = l3) 
l3 [1,2] <- (Vl$NbS <- gcombobox ((c(1:420)), cont = l3)) 

ok <- gbutton("OK", cont = g, handler=rbC) 

fr4 <- gframe ("", cont=g, horizontal=FALSE) 
l4 <- glayout (cont=fr4, expand = TRUE) 
l4 [1,1] <- Dm <- glabel("PID_full", cont = l4) 
l4 [1,2] <- (Vl$Dm <- gedit("", cont = l4))

Хорошо, я sh, что когда я выбираю 420 в gcombobox и нажмите ok, PID_full скажет мне 44101445, как в таблице, и так далее.

Но я не знаю, как передать аргумент функции, поскольку я на самом деле новичок в R. Может ли кто-нибудь мне помочь? Я надеюсь, что предоставил ясную информацию ... если что-то неясно, я обновлю ее, большое спасибо, оценит это.

...