メモリを節約するんじゃ
学習データはサンプリングするからメモリに載せられるけど、 予測対象はメモリに乗らない時に一行ずつ読み込んで処理をさせたい。
f <- file("data.csv", "r")
while(1){
line <- readLines(f, n=1)
if(length(line) == 0){
break
}else{
line.f <- textConnection(line)
line.df <- read.csv(line.f, header = FALSE, sep=",")
}
write.table(line.df, stdout(), row.names=F, col.names=F, sep=",")
}
標準入力から受け取る時は、
file("data.csv", "r")
を
file("stdin")
にすれば良さそう