可以更改R中的记录分隔符吗？

Question

从文本文件中读取数据（即 read.table）时，是否可以操作记录/观察/行分隔符？使用 sep="" 调整字段分隔符很简单，但我还没有找到一种方法来更改行尾字符的记录分隔符。

我正在尝试读取以管道分隔的文本文件，其中许多条目是包含回车符的长字符串。 R 将这些 CR 视为行尾，这会错误地开始新行并搞砸记录数和字段顺序。

我想使用不同的分隔符而不是 CR。事实证明，每一行都以相同的字符串开头，所以如果我可以使用 \nString 之类的东西来识别 true 行尾，那么表格将正确导入。以下是其中一个文本文件可能是什么样子的简化示例。

V1,V2,V3,V4
String,A,5,some text
String,B,2,more text and
more text
String,B,7,some different text
String,A,,

应该读入 R 为

V1      V2       V3      V4
String  A        5       some text
String  B        2       more text and more text
String  B        7       some different text
String  A        N/A     N/A

我可以在文本编辑器中打开文件并在读入之前使用查找/替换来清理它们，但是 R 中的系统解决方案会很棒。感谢您的帮助。

Answer 1

我们可以将它们读入并在之后折叠它们。 g 将具有值 0 用于标题，1 用于下一行（以及后续行，如果有的话，将与它一起使用）等等。 tapply 根据g 给L2 折叠行，最后我们重新读取行：

Lines <- "V1,V2,V3,V4
String,A,5,some text
String,B,2,more text and
more text
String,B,7,some different text
String,A,,"

L <- readLines(textConnection(Lines))

g <- cumsum(grepl("^String", L))
L2 <- tapply(L, g, paste, collapse = " ")

DF <- read.csv(text = L2, as.is = TRUE)
DF$V4[ DF$V4 == "" ] <- NA

这给出了：

> DF
      V1 V2 V3                      V4
1 String  A  5               some text
2 String  B  2 more text and more text
3 String  B  7     some different text
4 String  A NA                    <NA>

Answer 2

如果您使用的是 Linux/Mac，那么您确实应该使用命令行工具，例如sed，而不是。以下是两种略有不同的方法：

# keep the \n
read.csv(pipe('sed \'N; s/\\([^,]*\\)\\n\\([^,]*$\\)/"\\1\\n\\2"/\' test.txt'))
#      V1 V2 V3                       V4
#1 String  A  5                some text
#2 String  B  2 more text and\nmore text
#3 String  B  7      some different text
#4 String  A NA

# get rid of the \n and replace with a space
read.csv(pipe('sed \'N; s/\\([^,]*\\)\\n\\([^,]*$\\)/\\1 \\2/\' test.txt'))
#      V1 V2 V3                      V4
#1 String  A  5               some text
#2 String  B  2 more text and more text
#3 String  B  7     some different text
#4 String  A NA