sprintf로 전달하기위한 분할 데이터 프레임 R

Question

R에서 데이터 프레임을 구문 분석하려고하는 sprintf 형식 문자열이 있습니다. 나는이 코드를 만들었지 만, 추악하지는 않다. 이 작업을 수행하는 더 좋은 방법은 무엇입니까? 여기

writeData<-function(DataSet,FirstLine,FmtString,fName){ 
    correctLine<-function (MyLine,FmtString){ 
     do.call(sprintf,c(FmtString,MyLine)) 
    } 
    #why the ugly split code? Because otherwise it casts my nice data frame as characters which confuses sprintf. 
    outLines=lapply(split(DataSet,1:NROW(DataSet)),function (x){correctLine(x,FmtString)}) 
    writeLines(unlist(outLines),fName) 
    return(0) 
} 

은 예입니다 :

z=data.frame(d1=c("A","B","C"),d2=c(1,2,3),d3=c("D","E","F"),stringsAsFactors=FALSE) 
fmt="%s %0.3f %s" 
writeData(z,"",fmt,"~/sample.txt") 

대비 : 당신이 정확하게 뭘 하려는지 이해한다면

correctLine<-function (MyLine,FmtString){do.call(sprintf,c(FmtString,MyLine))} 
apply(z,1,function(x) {correctLine(x,fmt)}) #Errors out, wants a list 
correctLine<-function (MyLine,FmtString){do.call(sprintf,as.list(c(FmtString,MyLine)))} 
apply(z,1,function(x) {correctLine(x,fmt)}) # - still unhappy, now we have a character array. This is the problem. 

Answer 1

것은, 당신이 정말로에만 모든 열이 한 번 sprintf를 호출 할 필요가 서식을 지정합니다. 예를 들어 R의

writeData <- function(DataSet,FirstLine, FmtString,fName){ 
    outlines <- do.call("sprintf", c(FmtString, DataSet)) 
    writeLines(outLines,fName) 
    return(0) 
} 

대부분의 함수는 오히려 행 반복보다 한번에 전체 열 전달되도록 데이터 벡터로 작동하는 것을 의미한다.