いくつかの情報を含むテキストファイルを作成してからデータセットをR

Question

水路モデルの特定のデータ入力ファイルを作成するためにwriteLinesとwrite.tableをリンクしたいとします。ここにコードがあります。私はまた、すべての変数の末尾にjus RootDepth Columanの名前を表示したいが、それは空白である。 私はPrecで特定の行の値を入力し、rRoot値を提供するので、私もそれで動作します。これを行うには

txt <- "Pcp_File_Version=4\n*** BLOCK I: ATMOSPHERIC INFORMATION

********************************** 
\nMaxAL     (MaxAL = number of atmospheric data-records) 
\n116\nDailyVar SinusVar lLay lBCCycles lInterc lDummy lDummy lDummy lDummy lDummy 
\nf  f  f  f  f  f  f  f  f  f 
\nhCritS     (max. allowed pressure head at the soil surface) 
\n0" 
writeLines(txt, "ATMOSPH.txt") 
#file.show("ATMOSPH.txt") 

ATMOSPH<-data.frame(tAtm, Prec, rSoil, rRoot, hCritA, rB, hB, hT, RootDepth) 
tAtm<-c(1:30) 
Prec<-rep(0, 30) 
rSoil<-rep(0, 30) 
rRoot<-rep(0, 30) 
hCritA<-rep(10000, 30) 
rB<-rep(0, 30) 
hB<- rep(0, 30) 
hT<-rep(0, 30) 
#RootDepth<-() 
#write.table("ATMOSPH") 
write.table(ATMOSPH, "G:/Rlearning/ATMOSPH.txt", row.name=FALSE, quote=FALSE, sep="\t") 

Answer 1

一つの方法は、追記可能にファイル接続を開くことによって、次のとおりです。

fileConn <- file("ATMOSPH.txt", open="a") 

txt <- "Pcp_File_Version=4\n*** BLOCK I: ATMOSPHERIC INFORMATION********************************** 
\nMaxAL     (MaxAL = number of atmospheric data-records) 
\n116\nDailyVar SinusVar lLay lBCCycles lInterc lDummy lDummy lDummy 
lDummy lDummy 
\nf  f  f  f  f  f  f  f  f  f 
\nhCritS     (max. allowed pressure head at the soil surface) 
\n0" 

writeLines(txt, con = fileConn) 

はその後ATMOSPHデータフレームを構築した後、このようなファイルに追加します。

write.table(ATMOSPH, file = fileConn, row.name=FALSE, quote=FALSE, sep="\t") 

接続を無視しないでください。

close(fileConn)