싱크 기능은 항상 사용, 나에게 내가 파일 TXT에 엑셀 데이터베이스를 내보낼

Question

데이터 프레임의 모든 열을 내 보내지 않습니다() 이제 18 개의 변수가있는 데이터베이스가 있는데, txt 파일로 내보낼 때 첫 번째 12 개의 변수가 잘 표시되지만 13-18의 변수는 다른 데이터 집합으로 다른 변수 아래에 표시됩니다. 또한와

다음 코드를

function (..., Modes = list(), Names = NULL) { 
    sdata <- list(...) 
    snames <- as.character(substitute(list(...))[-1L]) 
    if (is.null(sdata)) { 
     if (is.null(Names)) { 
      odata <- vector("list", length = max(1, length(Modes))) 
     } 
     else { 
      if ((length(Names) != length(Modes)) && length(Modes)) { 
       warning("modes argument ignored") 
       Modes <- list() 
      } 
      odata <- vector("list", length = length(Names)) 
      names(odata) <- Names 
     } 
     ncols <- rep.int(1, length(odata)) 
     coltypes <- rep.int(1, length(odata)) 
    } 
    else { 
     ncols <- de.ncols(sdata) 
     coltypes <- ncols[, 2L] 
     ncols <- ncols[, 1] 
     odata <- de.setup(sdata, snames, ncols) 
     if (length(Names)) 
      if (length(Names) != length(odata)) 
       warning("'names' argument ignored") 
      else names(odata) <- Names 
     if (length(Modes)) 
      if (length(Modes) != length(odata)) { 
       warning("'modes' argument ignored") 
       Modes <- list() 
      } 
    } 
    rdata <- dataentry(odata, as.list(Modes)) 
    if (any(coltypes != 1L)) { 
     if (length(rdata) == sum(ncols)) 
      rdata <- de.restore(rdata, ncols, coltypes, snames, 
       sdata) 
     else warning("could not restore variables properly") 
    } 
    return(rdata) 
} 
<bytecode: 0x07a0ad74> 
<environment: namespace:utils> 

Answer 1

당신이 sink()를 사용하는 대신 write.table()하는 좋은 이유가 가정하면, 라인 싸여 제어하는 ​​width 옵션을 증가해야합니다

options(width=900)