index graph

Result

Function: check_directory Runs: 1
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

index graph

RUnit 0.4.31 2017-01-17 21:26:37