Salir de tramas producidas por RScript en la pantalla hasta interacción del usuario

Question

Tengo un script R que consulta una base de datos, ejecuta algunos análisis, traza algunos gráficos basados ​​en la fecha actual del sistema.

Quiero que este script se ejecute todos los días en el arranque, pensé que podría hacer esto simplemente usando un acceso directo a rscript.exe con los parámetros necesarios.

Esto funciona bien, sin embargo, el script se cierra después de ejecutarse, no es muy útil para ver los gráficos.

Estoy usando XP y win7.

¿Hay alguna manera fácil de mantener el resultado del script en la pantalla? Intenté incorporar escaneo en el guión, pero no pausa.

sé que sólo podía abrir la Rgui, y ejecutar una sola línea de código, pero el plan es implementar esta al ordenador de un colega que es totalmente desconocido con R.

Answer 1

Esto funciona para mí en Linux:

#!/usr/bin/env Rscript 

X11() 
with(mtcars, plot(mpg, hp)) 
locator(1) 

El usuario debe hacer clic en la ventana de trazado antes de que desaparezca. Supongo que funcionaría en Windows con una llamada al windows().

Answer 2

La solución de Michael ya puede funcionar, pero aquí está el algo que muestra una trama dentro de un marco tkrplot. El paquete tkrplot (en CRAN) usa las extensiones tcltk para R y está disponible en todas partes.

# From http://stackoverflow.com/questions/3063165/ 
#  r-building-a-simple-command-line-plotting-tool- 
#  capturing-window-close-events 

require(tcltk) 
library(tkrplot) 

## function to display plot, called by tkrplot and embedded in a window 
plotIt <- function(){ plot(x=1:10, y=1:10) } 
tt <- tktoplevel()  ## create top level window event handler 
done <- tclVar(0)  ## variable to wait on  
## bind to the window destroy event, set done variable when destroyed 
tkbind(tt,"<Destroy>",function() tclvalue(done) <- 1) 
## Have tkrplot embed the plot window, then realize it with tkgrid 
tkgrid(tkrplot(tt,plotIt)) 
tkwait.variable(done) ## wait until done is true 
## script continues, or exits, ... once plot is closed 

Si se mira a través de la documentación tcltk para R, a encontrar otros ejemplos con los botones 'OK' para cerrar etc.

Answer 3

¿Qué tal Sys.sleep (1e30)? Eso debería esperar el tiempo suficiente.

Answer 4

OK, estaba totalmente perpleja por todas las respuestas que he visto a este tipo de preguntas porque ninguna de ellas funcionaba en Windows. readline, tkwait.window, Sys.sleep (1e30), mientras que (TRUE), nada funcionó.

Pero acabo de actualizar R a v3.1.0 y ahora tkwait.window (yourmainwindow) funciona, mientras que (TRUE) {} funciona, aunque Sys.sleep (1e30) todavía no funciona.

No importa ... Estoy usando tkwait.window, porque es tk, y está esperando mi ventana (que es lo que quiero).

Obteniendo el p. Ej. http://www.sciviews.org/_rgui/tcltk/OKtoplevel.html de trabajar ... (eliminadas por razones de brevedad comentarios)

require(tcltk) 
tt <- tktoplevel() 
OK.but <- tkbutton(tt, text = "OK", command = function() tkdestroy(tt)) 
tkgrid(OK.but) 
tkfocus(tt) 
tkwait.window(tt) # <-- added this to make the window stay!