こういう処理をよく行うのだが
## ######## 一時ファイルで実験する場合 td <- tempfile() dir.create(td) for(i in 1: nrow(wine00)){ write( as.character(wine00[i, "PC"]), file = paste(td, paste("D", i, sep=""), sep="/")) }
Windows の場合,XP は大丈夫だが,Vista だとちゃんと書き込めない.次のようにする必要がある.
td <- tempfile() dir.create(td) for(i in 1: nrow(wine00)){ write( as.character(wine00[i, "PC"]), file = paste(td, paste("D", i, sep=""), sep="\\")) }
最後に
unlink(td, recursive = TRUE)
で,掃除する.