DeaR list,
I am writing a user friendly script for an interactive use of R. The user is
supposed to click on a bat-File in Windows-environment and to enter some
values in a pop-up window.
Let us assume we have the script given below. If she sources this script
within R, everything works smoothly. The pop-up window jumps and patiently
waits her to enter the value. For this to work she has to start R, navigate
to File --> Source R code... and to find her R-Script file (or whichever we
sources the file). I want the things to be a bit more automatic - a single
click and everything goes. Let us assume the script lives in "test.R".
I
made the bat-Files with the following entries:
"D:\Program Files\R\R-2.9.1\bin\Rscript.exe"
test.R
or another bat file like this one
"D:\Program Files\R\R-2.9.1\bin\Rcmd.exe" BATCH test.R
Both of them seem to work, but they simply execute the
"test.R"-without
waiting the user to enter anything. I see the window popping-up and being
immediately closed afterwards. I tested almost every binary in
"...\R\R-2.9.1\bin\..." (Rcmd.exe, R.exe, Rterm.exe, Rscript.exe,
etc). In
case I made myself clear, could someone give me a hint of how accomplish
this task.
Cheers,
AS
############ BEGIN R Scipt ############
require(tcltk)
tt <- tktoplevel()
tktitle(tt) <- "My Schedular"
Name <- tclVar("")
entry.Name <-tkentry(tt,width="18",textvariable=Name)
tkgrid(tklabel(tt,text="Please enter your name"))
tkgrid(entry.Name)
OnOK <- function() {
NameVal <- tclvalue(Name)
tkdestroy(tt)
msg <- paste("You have a nice name",NameVal)
tkmessageBox(title="Result",message=msg)
}
}
OK.but <-tkbutton(tt,text=" OK ",command = OnOK)
tkbind(entry.Name, "<Return>",OnOK)
tkgrid(OK.but)
tkfocus(tt)
############ END R Scipt ############
[[alternative HTML version deleted]]
