Извлечь строку между фигурными скобками, используя str_extract_all

У меня есть следующий код:

myFunction.R

myFunction({
  lorem <- "ipsum"
  ...
  print("dolor sit amet")
})

myFunction({
  consectetur <- "adipiscing elit"
  ...
  sed <- paste("do", "eiusmod")
})

...

В другом сценарии R я хотел бы извлечь все вызовы myFunction. На данный момент лучшее, что я придумал, это:

library(stringr)
library(readtext)

script <- readtext('myFunction.R')[['text']]
matches <- str_extract_all(script, 'myFunction(.|\\n)*\\}\\)')[[1]]

Но, к сожалению, matches содержат первый вызов myFunction до конца файла. Как улучшить регулярное выражение, чтобы оно соответствовало только каждому вызову myFunction?