Get rid of `ReplaceWordInFile` function

[marinak-ebi]

Instead of replacing one word in the function.R file, create a parameter for Rscript that indicates a version.

ReplaceWordInFile function:

impc_stats_pipeline/Late adults stats pipeline/DRrequiredAgeing/DRrequiredAgeingPackage/R/sideFunctions.R

Lines 4679 to 4703 in f3bccf6

	ReplaceWordInFile = function(file,
	pattern = '',
	replaceBy = '',
	fixed = TRUE,
	...) {
	if (!file.exists(file)) {
	message0('file does not exists. file \n\t =>', file)
	return (invisible(file))
	}
	tx <- readLines(file)
	tx2 <-
	gsub(
	pattern = pattern,
	replace = replaceBy,
	x = tx,
	fixed = fixed,
	...
	)
	writeLines(tx2, con = file)
	message0('Replace in file successful. Pattern: ',
	pattern,
	', Replaced by: ',
	replaceBy)
	return (invisible(file))
	}

Example of line in the log file:
Replace in file successful. Pattern: DRversionNotSpecified, Replaced by: 20.17

ReplaceWordInFile function replace pattern in following files:

• function.R
• function_windowed.R

To-do list:

• Remove ReplaceWordInFile function.
• Add version parameter to the function.R and function_windowed.R.
• Replace function in the orchestration script.