从R中的文本中提取两行

Question

有没有办法从文本文件中抓取多行文字？
在我的情况下，我想抓住CODE这个词及其后的所有内容，直到它达到双重换行符 例如：

CODE: the secret ID for the house is green,
red, blue  
(\n)  
(\n)  
CODE: the secret ID for the garage is red,
blue, blue, purple  
(\n)  
(\n)  

我正在考虑使用正则表达式，但我无法找到获得两条线路的方法而且仅仅停留在第一条线路上。

getID <- function(phrase, x) {
    grep(phrase,x, value = T)
}
lapply(files, getID, phrase = "CODE(\\.*)(\\n){2}")  

然后第一个看起来像

CODE: the secret ID for the house is green,
red, blue