R 在空行上分割文本

我有一个很长的文件，如下所示：

"Ach! Hans, Run!" 
2RRGG
Enchantment
At the beginning of your upkeep, you may say "Ach! Hans, run! It's the . . ." and name a creature card. If you do, search your library for the named card, put it into play, then shuffle your library. That creature has haste. Remove it from the game at end of turn.
UNH-R

A Display of My Dark Power
Scheme
When you set this scheme in motion, until your next turn, whenever a player taps a land for mana, that player adds one mana to his or her mana pool of any type that land produced.
ARC-C

AErathi Berserker
2RRR
Creature -- Human Berserker
2/4
Rampage 3 (Whenever this creature becomes blocked, it gets +3/+3 until end of turn for each creature blocking it beyond the first.)
LE-U

AEther Adept
1UU
Creature -- Human Wizard
2/2
When AEther Adept enters the battlefield, return target creature to its owner's hand.
M11-C, M12-C, DDM-C

...

我想将此文件加载到 data.frame 或向量“oracle”中，按每个空行（实际上是一个空格和一个换行符）分割，以便

oracle[1] 

给出输出像

"Ach! Hans, Run!" 2RRGG Enchantment At the beginning of your upkeep, you may say "Ach! Hans, run! It's the . . ." and name a creature card. If you do, search your library for the named card, put it into play, then shuffle your library. That creature has haste. Remove it from the game at end of turn. UNH-R

我试过类似的代码

oracle <- read.table(file = "All Sets.txt", quote = "", sep="\n")

以及 scan()，但是

oracle[1]

给出很长的、不需要的输出。

Thanks!

根据您编辑的问题尝试一下：

oracle <- readLines("BenYoung2.txt")
nvec <- length(oracle)
breaks <- which(! nzchar(oracle))
nbreaks <- length(breaks)
if (breaks[nbreaks] < nvec) {
  breaks <- c(breaks, nvec + 1L)
  nbreaks <- nbreaks + 1L
}
if (nbreaks > 0L) {
  oracle <- mapply(function(a,b) paste(oracle[a:b], collapse = " "),
                   c(1L, 1L + breaks[-nbreaks]),
                   breaks - 1L)
}


oracle[1]
# [1] "\"Ach! Hans, Run!\"  2RRGG Enchantment At the beginning of your upkeep, you may say \"Ach! Hans, run! It's the . . .\" and name a creature card. If you do, search your library for the named card, put it into play, then shuffle your library. That creature has haste. Remove it from the game at end of turn. UNH-R"

编辑：虽然如果您始终将真正的空行作为中断，则效果很好，但您可以使用此行来代替仅使用空白行：

breaks <- which(grepl("^[[:space:]]*$", oracle))

当行真正为空时，这会给出相同的结果。