テキストの最初の行にファイル名を書き込む

Question

私はgrep（）で操作しているテキストファイルを持っており、テキストの最初の行にファイル名を追加したい。私はRに新しく立ち往生している。助言がありますか？ありがとう！

Answer 1

私はあなたのテキストファイルの内容がどうなっているのかよく分かりませんが、ファイルに有効なコメント文字がある場合は、そのファイル名の前に置くことをお勧めします。これは、readLinesとwriteの組み合わせで実現できます。

まず、ファイルの内容をreadLinesと読みたいと思うでしょう。次に、ファイル名のベクトルを作成し、次にコンテンツをreadLinesから作成します。次に、ベクトルを元のファイルに書き戻します。

真実に言えば、それを別のファイルに書き込んでソースの素材を変更しないほうがよいでしょうが、それをどのように管理したいかを理解するために残しておきます。コードは以下の図

#* Create a temporary file 
this_file <- tempfile("an_example_file", tmpdir = getwd(), fileext = ".txt") 

#* Populate the file with some text 
write(LETTERS, this_file) 

#* Here's the real start of the solution 
file_text <- readLines(this_file) 

write(
    paste0(
    c(sprintf("## %s \n\n", this_file), 
     file_text) 
), 
    this_file 
) 

#* see the changes 
readLines(this_file) 

#* cleanup 
file.remove(this_file) 

Answer 2

filename <- 'whatever.txt' 
file.text <- readLines(filename) 
file.text <- c(filename, file.text) # adds filename to beginning of file.text 
fileConn<-file(filename) 
writeLines(file.text, fileConn) 
close(fileConn)