0

Unix 端末では、コマンド「less」または「more」を使用してテキスト ファイルをページごとに見ることができます。300 行の文字ベクトルがあり、ページごとに確認したいと思います。R で同様の関数を知っていますか?

4

1 に答える 1

1

R(ドライブ上のファイルではなく) 環境内のオブジェクトを参照している場合、

あなたはここに私の小さなおもちゃが好きかもしれません:

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)])
        }
}

何とか著作権は私にあり、ディズニーの何とかではなく、自由に使用、再利用、編集、Wheaties に振りかけることなどができます。

于 2013-06-25T11:49:37.853 に答える