scripts <-
  findRscript("FACTEURS_CROISSANCE_EPRC_PROJETES_FLEX", "~/delfinverse")

for (script in scripts$path_to_file) {

  content <- readLines(script)
  new_content <- gsub("FACTEURS_CROISSANCE_EPRC_PROJETES_FLEX", "WF_EPRC", content)

  writeLines(new_content, script)

}
