R/extract_comments.R

In DSSAT: A Comprehensive R Interface for the DSSAT Cropping Systems Model

extract_comments <- function(raw_lines){
  comment_lines <- grep('!',
                        iconv(raw_lines, sub = "?"),
                        value = TRUE)
  comments <- gsub(" +$", # remove trailing spaces
                   "",
                   # extract only comments prefaced with !
                   regmatches(comment_lines,
                              regexpr("(?<=!).*",
                                      comment_lines,
                                      perl = TRUE)))
  return(comments)
}