Захватить c многострочный контент в текстовом файле

Question

Содержимое этого txt-файла - это журнал игры в покер. Я хочу использовать некоторые операции регулярных выражений, чтобы:

1) захватить содержимое каждой игры

2) захватить всех игроков в каждой игре

3) создать список победителей ( 3 лучших игрока в каждой игре), включая тех игроков, которые вышли из игры ранее.

Мне пришла в голову эта идея, но я думаю, что пропустил некоторые многострочные опции или что-то еще. Может быть, кто-то может помочь?

results_all <- readLines(here::here("/data/pokerth-log-2020-04-22_201851.txt"))

ngame <- 1
ngame_content <- results_all %>% str_extract(
  regex(
    str_c('(Game:\\s', ngame, '\\s\\|\\sHand:\\s1)(.*)(?=wins.game.', ngame, ')', sep = ""),
    multiline = T)#Grab the content of a game (A game is defined by Game x Hand 1 and ends with player x wins game)
  )


players <- ngame_content %>% stringr::regex('(Seat\\s[0-9]:\\s)([A-Za-z]*)', dotall = T) #Grab all players

player_looses <- list()
for (i in players){
player_looses[[i]] <- str_c('(', player, ')\s(sits out)', sep = "") #A player loses
}