R/summary_warnings.R

In sachserf/framework: A framework for project organisation

#' Summarize warnings in a framework project
#'
#' @description Extract lines from file and print to console (coloured warnings and messages).
#' @param filepath_warnings Character. File path to the file containing collected warnings
#'
#' @author Frederik Sachser
#' @seealso \code{\link{write_warnings}}
#' @export
summary_warnings <-
  function(filepath_warnings = "meta/warnings.Rout") {
    thelines <- readLines(filepath_warnings)
    thelines <- thelines[-grep(pattern = "^$", x = thelines)]

    warmes <- grep(pattern = "^##\040 *", x = thelines)
 #   normtxt <- seq_along(thelines)[!seq_along(thelines) %in% warmes]

    for (i in seq_along(thelines)) {
      if (i %in% warmes) {
        message(thelines[i])
      } else {
        print(thelines[i])
      }
    }
  }