我正在读取没有标题的文件。然后，我将使用正确的标题创建一个新文件，并使用如下命令外壳脚本将该文件附加到该新文件中：

usrWorkingFileName <-""
vcInputFileExtension <- ""
usrCompleteFolderPath <- ""
vcColumnNames <- c()
vcInputFileDelimiter <- ""

vcOuputFileName <- paste0(sub(paste0("\\.",vcInputFileExtension),"",usrWorkingFileName),"_BHHEADER",".",vcInputFileExtension)

cmdScript <- paste0(
    "pushd ",gsub("/","\\\\",usrCompleteFolderPath)," && ","echo ",paste0(paste0(vcColumnNames,collapse=paste0("^",vcInputFileDelimiter)),"^\\n")," > \"",vcOuputFileName,"\"","type \"",usrWorkingFileName,"\" >> \"","popd ",usrCompleteFolderPath)
  )
  shell(cmdScript)

问题在于原始文件仅使用LF作为EOL终止符，但是默认情况下，我的标题行使用CRLF。添加"^\\n"只是从字面上打印文本\n，而不是我期望的EOL元字符。

1）如何使用readLines()之类的函数来确定文件的EOL？
2）如何手动将所需的EOL字符解析到我在文件前面的标头中？