Obter dados de uma função tcltk
Isto é provavelmente tão simples que eu vou tremer quando a resposta voltar, mas estou totalmente perplexo. Eu tentei os manuais, tentei pesquisar na web, exemplos variados e qualquer outra coisa que eu possa pensar. Eu ainda estou preso.
Eu estou tentando criar uma entrada simples para o usuário adicionar dois valores que eu possa usar no resto do script R. Preciso que o script pause e espere pela entrada do usuário e continue assim que receber a entrada (como a função de arquivo de escolha funciona). Depois de ler um monte de coisas, decidi usar a biblioteca (tcltk). Eu tenho uma pequena caixa dentro de uma função.
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)
}
Quando eu digito:
inputs()
A caixinha bonita aparece e eu posso inserir meus valores, digamos 3 e 4 para este exemplo.
eu voltei
<Tcl>
[1] 3
[1] 4
Eu quero usar esses números em uma parte subsequente do código R. Como faço para obtê-los para que eu possa obter o equivalente a isso?
input1 <- 3
input2 <- 4
Agradecimentos antecipados pela ajuda.