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

Question

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

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 PID_short передаю аргумент PID_full , Значит, когда я выбираю 420 в gcombobox и нажимаю ok, PID_full скажет мне 44101445, как в таблице, и т. Д.

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