2010-05-16 3 views
19

R 콘솔에서 사용할 수있는 less 유닉스 명령에 해당하는 명령이 있습니까?R 콘솔에서 unix "less"명령에 해당

+0

당신이 있습니까 파일 시스템이나 R 환경 (나는 후자를 추측한다)에서 사물을 보려고 하는가? – Shane

+1

R 환경 내. 예를 들어, 적당한 크기의 데이터 프레임을'print'하면 스크롤 할 수 있기를 원합니다. – fmark

답변

31

을 사용할 수 있습니다 page()도있다한다 적은 양처럼 호출기에 객체 표현을 표시합니다.

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

완벽하고 정확하게 찾고자했습니다! – fmark

+2

Windows 8의 RStudio에서'page (data, method = "print")'를 실행하면 "어떻게이 유형의 파일을 열시겠습니까?"라는 메시지가 나타납니다. '스토어에서 앱 찾기'옵션 만 있으면됩니다. 다른 사람들이 이것을 어떻게 볼 수 있습니까? 어떻게 작동시킬 수 있습니까? – yic

11

아니요. 이 명시 적으로 객체를 보여주는

  • head()tail() 시작과에 대한
  • print() 객체
  • 의 끝을 표시하기위한 명령은, 그리고 반환 다음에 바로 그 이름은 따라 간결하게 요약 같은
  • summary()을한다 구조

등의 오브젝트

  • str(). less에 해당하는 것은 언어 및 시스템과 조금 직각이됩니다. 유닉스 쉘이 파일의 내용 (ASCII 인코딩으로 추정 됨)을보기 위해 less을 제공하는 곳에서는 모든 유형을 알 수 없다.

    R은 객체 유형에 대해 알고 있다는 점이 다르므로 summary() - 전체 모델링 프레임 워크가 더 적절합니다.

    추가 편집 : 또 다른 가능성은 edit()edit.data.frame()입니다.

  • +0

    유익한 답변 주셔서 감사합니다. 나는 "less"가 부적절하다는 것에 동의하지 않을 것이다. 내가 사용하는 주 기능은 콘솔에서 문자열 버퍼를 스크롤하는 것이다. R 콘솔은 많은 문자열 버퍼를 출력합니다. 아마 여기에 버퍼 스크롤 기능을 사용할 수있을 것이라고 생각했습니다. – fmark

    +1

    * NIX 시스템 중 하나를 사용하는 경우 언제나'system ("less")'...를 사용할 수 있습니다 ... – aL3xa

    +1

    fmark : 또 다른 가능성은'edit()'와'edit.data.frame()'시도해 볼 수 있습니다. –

    6

    출력물을 파일로 저장 한 다음 편집기 또는 less을 사용하여 읽습니다.

    유형은 쉘에서

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

    그리고 R에 다음

    less Routput.txt 
    
    +0

    대용량 데이터 세트의 str()을 스크롤 할 때 잘 작동합니다 (page()가 이에 적합하지 않음) – dahved

    0

    를 파일이 디스크에 이미있는 경우, 당신은 file.show

    1

    당신은 여기 내 작은 장난감을 좋아 있습니다

    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 저작권을 내게로 등을하지 디즈니 blahblah, 사용, 재사용, 편집을 위해 무료로 특별한 존재가 될거야에 뿌리는,