複数の文字区切り文字を含むテキストファイルをRのリストに読み込む

Question

テキストファイル（テーブルや数字ではなく、実際の英語の文章）を含むテキストファイルがあります。文の2〜3桁には、前の文と次の文を区切るための3つのアスタリスク（***）があります。リストの要素として各グループが必要です。私はreadLines、readcharおよびstrsplitを試しましたが、動作させることはできません。 はここに例を示します

Hello Everyone. 
My name is James. 

*** 

Hello James! 
My name is Amy. 
Nice to meet you. 

*** 

Hi Amy! 
My name is Sue. 

だから私はグループを含むベクトルであるそれぞれの3つの要素のリストを必要としています。グループの文章内に改行文字があることに注意してください。

Answer 1

data.txtがあなたのテキストエントリを保持していると仮定します。これはあなたが望むものですか（ベースR）：

data <- readLines("data.txt"); 

#Optionally remove empty lines 
data <- data[data != ""]; 

# Split based on triple asterisk entries 
lst <- split(data, cumsum(data == "***")); 

# Remove triple asterisk entries 
lst <- lapply(lst, function(x) x[x != "***"]) 
print(lst); 

$`0` 
[1] "Hello Everyone." "My name is James." 

$`1` 
[1] "Hello James!" "My name is Amy." 

$`2` 
[1] "Hi Amy!"   "My name is Sue." 

Answer 2

これを試してください。テキストがファイル内にある場合は、textConnection(Lines)を"myfile.txt"のように置き換えてください。長さ3の次の文字ベクトル与え

Lines <- "Hello Everyone. 
My name is James. 

*** 

Hello James! 
My name is Amy. 
Nice to meet you. 

*** 

Hi Amy! 
My name is Sue." 

# L <- paste(readLines("myfile.txt"), collapse = "\n") 
L <- paste(readLines(textConnection(Lines)), collapse = "\n") 
v <- strsplit(L, "\n\n***\n\n", fixed = TRUE)[[1]] 

：代わりに文字ベクトルの個々の行の文字ベクトルのリストが必要な場合

> v 
[1] "Hello Everyone.\nMy name is James."    
[2] "Hello James!\nMy name is Amy.\nNice to meet you." 
[3] "Hi Amy!\nMy name is Sue." 

を再度strsplitを適用します。

strsplit(v, "\n") 

を

またはvをリストに強制したい場合：

as.list(v)