Lasciare i grafici prodotti da RScript sullo schermo fino all'interazione dell'utente

Question

Ho uno script R che interroga un database, esegue un'analisi, traccia alcuni grafici in base alla data corrente del sistema.

Voglio che questo script venga eseguito quotidianamente all'avvio, pensavo di poterlo fare abbastanza semplicemente usando un collegamento a rscript.exe con i parametri necessari.

Questo funziona correttamente, tuttavia lo script si interrompe dopo l'esecuzione, non molto utile per la visualizzazione dei grafici.

Sto usando XP e win7.

C'è un modo semplice per mantenere l'output dallo script sullo schermo? Ho provato a incorporare la scansione nello script, ma non si ferma.

So che potrei basta aprire il rgui, ed eseguire una sola riga di codice, ma il piano è quello di distribuire questo al computer di un collega che è del tutto sconosciuto con R.

Answer 1

Questo funziona per me su Linux:

#!/usr/bin/env Rscript 

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

L'utente deve fare clic sulla finestra del grafico prima che scompaia. Presumo che funzionerebbe su Windows con una chiamata a windows() invece.

Answer 2

La soluzione di Michael potrebbe già funzionare, ma ecco qualcosa che mostra una trama all'interno di una cornice tkrplot. Il pacchetto tkrplot (su CRAN) utilizza le estensioni tcltk per R ed è disponibile ovunque.

# 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 

Se si guarda attraverso la documentazione tcltk per R, a trovare altri esempi con pulsanti 'OK' per chiudere ecc

Answer 3

Come su Sys.sleep (1E30)? Questo dovrebbe aspettare abbastanza a lungo.

Answer 4

OK, stavo davvero puttanando su tutte le risposte che ho visto a questo tipo di domande perché nessuno di loro ha funzionato su Windows. readline, tkwait.window, Sys.sleep (1e30), while (TRUE), nessuno dei due ha funzionato.

Ma ho appena aggiornato R alla v3.1.0 e ora tkwait.window (yourmainwindow) funziona, mentre (TRUE) {} funziona, anche se Sys.sleep (1e30) continua a non funzionare.

Non importa ... Sto usando tkwait.window, perché è tk, ed è in attesa della mia finestra (che è quello che voglio).

Ottenere ad es. da http://www.sciviews.org/_rgui/tcltk/OKtoplevel.html al lavoro ... (commenti rimossi per brevità)

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!