Combine writeLines() com write.table().

header <- c("Walmes Zeviani\n 2015-08-17\n\n")
writeLines(text=header, con="my.txt")
write.table(x=cars, file="my.txt", append=TRUE)

À disposição.
Walmes.