<div dir="ltr"><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Combine writeLines() com write.table().<br><br>header <- c("Walmes Zeviani\n 2015-08-17\n\n")<br>writeLines(text=header, con="my.txt")<br>write.table(x=cars, file="my.txt", append=TRUE)<br><br>À disposição.<br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Walmes.<br></div>​</div>