Entspricht dem Unix-Befehl "less" in der R-Konsole

Question

Gibt es ein Äquivalent zum UNIX-Befehl less, der in der R-Konsole verwendet werden kann?

Answer 1

verwenden Es gibt auch page() die Zeigt eine Darstellung eines Objekts in einem Pager an, wie weniger.

dat <- data.frame(matrix(rnorm(1000), ncol = 10)) 
page(dat, method = "print") 

Answer 2

Nicht wirklich. Es gibt die Befehle

• head() und tail() zu zeigen den Anfang und das Ende von Objekten
• print() explizit ein Objekt zeigen, und nur sein Name durch Rückkehr gefolgt tut die gleichen
• summary() für knappe Zusammenfassung, die abhängig auf das Objekt
• str() für seine Struktur

und mehr. Ein Äquivalent für less wäre ein wenig orthogonal zu der Sprache und dem System. Wenn die Unix-Shell Ihnen less anbietet, um den Inhalt einer Datei anzuzeigen (die vermutlich ASCII-codiert ist), kann sie nicht über alle Typen Bescheid wissen.

R unterscheidet sich darin, dass es über die Objekttypen weiß, weshalb summary() - sowie das gesamte Modellierungs-Framework - besser geeignet sind.

Follow-up edit: Eine weitere Möglichkeit durch edit() sowie edit.data.frame() vorgesehen ist.

Answer 3

Ich speichere die Druckausgabe in eine Datei und lese sie dann mit einem Editor oder less.

Geben Sie folgende in R

sink("Routput.txt") 
print(varname) 
sink() 

Dann in einer Schale:

less Routput.txt 

Answer 4

Wenn die Datei bereits auf der Festplatte ist, dann können Sie file.show

Answer 5

Sie könnten hier mein kleines Spielzeug mag:

short <- function(x=seq(1,20),numel=4,skipel=0,ynam=deparse(substitute(x))) { 
ynam<-as.character(ynam) 
#clean up spaces 
ynam<-gsub(" ","",ynam) 
#unlist goes by columns, so transpose to get what's expected 
if(is.list(x)) x<-unlist(t(x)) 
if(2*numel >= length(x)) { 
    print(x) 
    } 
    else { 
     frist=1+skipel 
     last=numel+skipel 
     cat(paste(ynam,'[',frist,'] thru ',ynam,'[',last,']\n',sep="")) 
     print(x[frist:last]) 
     cat(' ... \n') 
     cat(paste(ynam,'[',length(x)-numel-skipel+1,'] thru ', ynam, '[', length(x)-skipel,']\n',sep="")) 
     print(x[(length(x)-numel-skipel+1):(length(x)-skipel)]) 
     } 
} 

blahblah Copyright von mir, nicht Disney blahblah frei für die Verwendung, Wiederverwendung, Bearbeitung, Beregnung auf Wheaties usw.