Existe una manera de que clc
limpie la consola de R si hacemos lo siguiente:
clc <- 0
class(clc) <- 'limpiar'
print.limpiar <- function(rObject) cat("\014")
Cómo trabaja el código de arriba
Cuando escribes algo previamente definido en R (una variable en este caso), R interpreta que se quiere imprimir -en este caso clc
fue definido inicialmente como una clase del tipo "numeric", pudo ser también una "matrix"-
Luego se crea el método para la clase "limpiar" como print.limpiar()
Entonces cualquier objeto -función, variable, etc.- que provenga de la clase que sea del tipo "limpiar" -la única que hay es clc
- al momento de ser imprimida no imprimirá nada, pero ejecutará cat("\014")
Por tanto, una vez ejecutadas las tres líneas de arriba, sólo tienes que escribir
clc
y la consola de R estará limpia.
Si estamos en los terminales RStudio y macOS la tercera línea (print.limpiar <- function(rObject) cat("\014")
) debería ser cambiada por lo siguiente:
print.limpiar <- function(rObject) cat(c("\033[2J","\033[H"))
Está función no sólo limpiará el terminal respectivo también colocará el cursor en la parte superior izquierda del mismo ya que la mayoría de terminales soporta el código de escape ANSI
siendo
"\033"
: Esc
"[2J"
: Borra toda la pantalla
"[1;1H"
o "[H"
: columna 1 y fila 1 de la pantalla, aunque prefiero
"H"
porque me recuerda a "Home" o "Inicio" en las páginas web.
Ahora si se desea algo dinámico para que el código reconozca si estamos en R.app o en RStudio, R cuenta con una función commandArgs
, para el caso macOS la carpeta default de la aplicación es: "/Library/Frameworks/R.framework/Resources/bin/exec/R"
La implementación completa está aquí en mi github: clc.R
NOTA: El script clcR compartido no ha sido probado en: Linux, Windows, Ubuntu. Si intentas ejecutarlo en alguno de estos sistemas operativos u otros por favor déjalo en la caja de comentarios para actualizar clcR.
CONSIDERACIÓN: Asimismo en dicho script (clcR) la clase limpiar
es denominada como cleanup
y el parámetro rObject
definido para su método, corresponde a cleanupObject
.