Obtener datos de una función tcltk

Probablemente esto sea tan simple que me estremeceré cuando vuelva la respuesta, pero estoy totalmente perplejo. He probado los manuales, he intentado buscar en la web, varios ejemplos y cualquier otra cosa que se me ocurra. Todavía estoy atascado.

Estoy intentando crear una entrada simple para que el usuario agregue dos valores que luego puedo usar en el resto de la secuencia de comandos R. Necesito la secuencia de comandos para pausar y esperar la entrada del usuario y luego continuar una vez que reciba la entrada (como la función de elegir archivo) Después de leer un montón de cosas, decidí usar la biblioteca (tcltk). Tengo una pequeña caja agradable dentro de una función.

inputs <- function(){

   xvar <- tclVar("")
   yvar <- tclVar("")

   tt <- tktoplevel()
   tkwm.title(tt,"Input Numbers")
   x.entry <- tkentry(tt, textvariable=xvar)
   y.entry <- tkentry(tt, textvariable=yvar)

   reset <- function()
    {
     tclvalue(xvar)<-""
     tclvalue(yvar)<-""
    }

   reset.but <- tkbutton(tt, text="Reset", command=reset)

   submit <- function() {
     x <- as.numeric(tclvalue(xvar))
     y <- as.numeric(tclvalue(yvar))
     print(x)
     print(y)
     tkdestroy(tt)
   }
   submit.but <- tkbutton(tt, text="submit", command=submit)

   tkgrid(tklabel(tt,text="Enter Two Inputs"),columnspan=2)
   tkgrid(tklabel(tt,text="Input1"), x.entry, pady = 10, padx =10)
   tkgrid(tklabel(tt,text="Input2"), y.entry, pady = 10, padx =10)
   tkgrid(submit.but, reset.but)

  }

Cuando escribo:

 inputs()

Aparece la pequeña caja bonita y puedo ingresar mis valores, digamos 3 y 4 para este ejemplo.

Vuelvo

<Tcl>  
[1] 3
[1] 4

Quiero usar ese número en una parte posterior del código R. ¿Cómo los consigo para que pueda obtener el equivalente a esto?

input1 <- 3
input2 <- 4

Gracias de antemano por ayudar.