R/removeEOF.R

In pik-piam/lucode: Code Manipulation and Analysis Tools

#' add EOF comment
#' 
#' remove EOF text from all files in the code
#' 
#' 
#' @param path path to the main folder of the model
#' @param filetypes file types the function should be applied to
#' @author Anastasis Giannousakis
#' @export
#' @seealso \code{\link{addEOF}}
#' @examples
#' 
#' \dontrun{
#' removeEOF()}
#' 
removeEOF<-function(path = ".",filetypes=c("inc","prn","gms")) {

all_files <- list.files(path = path, pattern = paste("\\.(",paste(filetypes,collapse="|"),")$",sep=""),recursive = TRUE)

for (i in 1:length(all_files)) {
  values <- suppressWarnings(readLines(all_files[i]))
  if (grepl("EOF",values[length(values)])) {
    values[length(values)]<-""
    writeLines(values,all_files[i])
  }
}
}