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