
Hola!

Me gustaría saber si hai alguna forma más eficiente de realizar, lo siguiente:

Mi intención es mostrar la salida de R en un widget del tipo tktext, pues estoy implementando la interfaz sobre un paquete que muestra algunos mensajes en la linea de comandos de R (que quiero que se sigan mostrando).

Pero no encontré una forma más eficiente de realizarlo, que creando un archivo .txt y luego leyendo su contenido, espero que alguién pueda decirme una forma mejor!! 

El codigo sería el siguiente:

      sink("miarchivo.txt", append=FALSE, split=FALSE)
      # aquí iría la llamada a la función que muestra mensajes a través de los comandos cat.
      sink()
      
      rutamiarchivoTxt<-paste(getwd(),"/InterfazRHRV.txt",sep="")
      contenidomiarchivoTxt=readLines(rutamiarchivoTxt)

      contenidoString<-paste(contenidomiarchivoTxt,collapse="")                                                
      contenidoString<-gsub("   ","\n   ",contenidoString)

      frameText<-tkframe(tt,relief = "groove", borderwidth = 3) 
      tkgrid(frameText,row=18,columnspan=5,padx=2)
      scr <- tkscrollbar(frameText, repeatinterval=5,command=function(...)tkyview(txt,...))
      txt <- tktext(frameText, height=3,yscrollcommand=function(...)tkset(scr,...),foreground="blue")
      tkgrid(txt,scr,row=18,columnspan=50)

      tkinsert(txt,"end",contenidoString)
      tkgrid.configure(scr,sticky="ns")


 		 	   		  
_________________________________________________________________
Consejos para seducir ¿Puedes conocer gente nueva a través de Internet? ¡Regístrate ya!

	[[alternative HTML version deleted]]

