#' 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])
}
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.