Jest to prawdopodobnie tak proste, że zawiodę, gdy odpowiedź wróci, ale jestem całkowicie zakłopotany. Wypróbowałem podręczniki, spróbowałem przeszukać sieć, dobrać przykłady i cokolwiek innego, o czym mogę myśleć. Nadal utknąłem.

Próbuję utworzyć proste wejście dla użytkownika, aby dodać dwie wartości, które mogę następnie użyć w pozostałej części skryptu R. Potrzebuję skryptu, aby wstrzymał się i poczekał na dane wejściowe od użytkownika, a następnie kontynuował, gdy tylko otrzyma dane wejściowe (np. Jak działa funkcja wyboru pliku). Po przeczytaniu kilku rzeczy postanowiłem użyć biblioteki (tcltk). Wewnątrz funkcji mam ładne małe pudełko.

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)

  }

Kiedy wpisuję:

 inputs()

Pojawi się ładne małe pudełko i mogę wprowadzić moje wartości, powiedzmy 3 i 4 dla tego przykładu.

Wracam

<Tcl>  
[1] 3
[1] 4

Chcę użyć tych numerów w kolejnej części kodu R. Jak je zdobyć, aby uzyskać równowartość tego?

input1 <- 3
input2 <- 4

Z góry dziękuję za pomoc.