get_section_contents: Defensive return in case developer forgot to include relevant sections

[SHAESEN2]

When the developer of a function forgot to include sections 'Last updated by', 'Last modified by" it would be helpful to return an informative message eg return warning, return "Please update", "No information available".

A proposal

get_section_contents <- function(tag, block){
  tag_no <- which(grepl(pattern = tolower(tag), tolower(block)))
  retme <- gsub(pattern = "[[:space:]]^|[[:space:]]$", replacement = "",
       x = block[tag_no + 1])

  if (length(retme) == 0) return("No information available")
  else return(retme)
}