| 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 |