| line | code | calls | time | 
|---|
| 1 | { | 0 | 0 | 
| 2 | checkmate::assertDirectory(path, access = "r") | 1 | 0 | 
| 3 | paths <- normalizePath(sort(list.files(path, pattern, recursive = recursive, full.names = TRUE))) | 1 | 0 | 
| 4 | findings <- NULL | 1 | 0 | 
| 5 | for (source_file in paths) { | 1 | 0 | 
| 6 | finding <- tryCatch(check_file(source_file, ...), cleanr = function(e) return(e[["message"]])) | 7 | 0 | 
| 7 | findings <- c(findings, finding) | 7 | 0.09 | 
| 8 | } | 0 | 0 | 
| 9 | findings <- tidy_findings(findings) | 1 | 0 | 
| 10 | if (!is.null(findings)) { | 1 | 0 | 
| 11 | throw(paste(path, names(findings), findings, sep = " ", collapse = "\n")) | 1 | 0 | 
| 12 | } | 0 | 0 | 
| 13 | return(invisible(TRUE)) | 0 | 0 | 
| 14 | } | 0 | 0 |