i如何在R中分割多行文本？

Question

我有一个输入文件有一个段落。我需要按照模式将段落分成两个分段。

paragraph.xml

<Text> 
     This is first line. 
     This is second line. 
     \delemiter\new\one 
     This is third line. 
     This is fourth line. 
</Text> 

R代码里面：

doc<-xmlTreeParse("paragraph.xml") 
top = xmlRoot(doc) 
text<-top[[1]] 

我需要本段分成2个段落。

1款

This is first line. 
This is second line. 

1款

This is third line. 
    This is fourth line. 

我发现strsplit功能是非常有用的，但它永远不会分离的多行文字。

Answer 1

既然你有xml文件，最好使用XML包装设施。我看到你在这里开始使用它，你已经开始的连续性。

library(XML) 
doc <- xmlParse('paragraph.xml') ## equivalent xmlTreeParse (...,useInternalNodes =TRUE) 
## extract the text of the node Text 
mytext = xpathSApply(doc,'//Text/text()',xmlValue) 
## convert it to a list of lines using scan 
lines <- scan(text=mytext,sep='\n',what='character') 
## get the delimiter index 
delim <- which(lines == "\\delemiter\\new\\one") 
## get the 2 paragraphes 
p1 <- lines[seq(delim-1)] 
p2 <- lines[seq(delim+1,length(lines))] 

然后你可以使用paste或write拿到段落结构，例如，使用write：

write(p1,"",sep='\n') 

This is first line. 
This is second line. 

Answer 2

这是一种迂回的可能性，使用split,grepl和cumsum。

一些样本数据：

temp <- c("This is first line.", "This is second line.", 
      "\\delimiter\\new\\one", "This is third line.", 
      "This is fourth line.", "\\delimiter\\new\\one", 
      "This is fifth line") 
# [1] "This is first line." "This is second line." "\\delimiter\\new\\one" 
# [4] "This is third line." "This is fourth line." "\\delimiter\\new\\one" 
# [7] "This is fifth line" 

使用split使用cumsum上grepl产生 “团” 之后：

temp1 <- split(temp, cumsum(grepl("delimiter", temp))) 
temp1 
# $`0` 
# [1] "This is first line." "This is second line." 
# 
# $`1` 
# [1] "\\delimiter\\new\\one" "This is third line." "This is fourth line." 
# 
# $`2` 
# [1] "\\delimiter\\new\\one" "This is fifth line" 

如果进一步清理需要，这里有一个选项：

lapply(temp1, function(x) { 
    x[grep("delimiter", x)] <- NA 
    x[complete.cases(x)] 
}) 
# $`0` 
# [1] "This is first line." "This is second line." 
# 
# $`1` 
# [1] "This is third line." "This is fourth line." 
# 
# $`2` 
# [1] "This is fifth line"