Можно ли добавить в первую строку существующего файла?

Question

Я просмотрел несколько функций, которые могут добавлять текст в существующий файл данных (.csv или .txt), такие как write.table, write.lines или sink.

Когда аргумент append = TRUE, новые данные всегда добавляются после последней существующей строки файла. Можно ли добавлять данные в существующий файл в первой строке (под заголовком) - AKA напротив append?

Учитывая фрейм данных:

DF <- as.data.frame(matrix(seq(20),nrow=5,ncol=4)) 
colnames(DF) <- c("A", "B", "C", "D") 
write.table(DF, "DF.csv", row.names=FALSE, sep=",") 

Я могу добавить новый кадр данных до последней строки, как этот

A <- 1 
A <- data.frame(A) 
A$B <- 1 
A$C <- 1 
A$D <- 1 
write.table(A, "DF.csv", row.names=FALSE, sep=",", append=TRUE, col.names=FALSE) 

, который близок к тому, что я хочу. Но мне очень хотелось бы иметь эту строку, чтобы добавить к первой строке DF.csv (справа под заголовком), как так

A B C D 
1 1 1 1 
1 6 11 16 
2 7 12 17 
3 8 13 18 
4 9 14 19 
5 10 15 20 

Чтобы было ясно, что я не ищу, чтобы добавить строку в кадр данных внутри R. Я надеюсь добавить строку в начало файла вне среды R. Так же, как append можно использовать для добавления данных в конец внешнего CSV-файла, я надеюсь «добавить» данные в начало файла CSV, так что мои последние данные всегда появляются в первой строке (до избегайте прокрутки до конца длинного файла, чтобы увидеть самые последние данные).

Answer 1

Написать свою собственную функцию:

my.write.table <- function(df, filename, sep) 
{ 
    ## read the existing content 
    temp.df <- read.table(filename, sep) 

    ## append in front 
    df <- rbind(df, temp.df) 

    ## write back the whole data frame 
    write.table(df, filename, sep) 
}