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

for (script in scripts$path_to_file) {
  
  content <- readLines(script)
  new_content <- gsub("mod_scenario_erstrenten", "mod_rentenzyklus", content)
  
  writeLines(new_content, script)
  
}