index graph

Result

Function: check_file Runs: 2
line code calls time
1 { 0 0
2     checkmate::assertFile(path, access = "r") 2 0
3     findings <- NULL 2 0.03
4     dots <- list(...) 2 0
5     check_file_layout_defaults <- formals(check_file_layout) 2 0
6     check_functions_defaults <- append(formals(check_functions_in_file), formals(check_function_layout)) 2 0
7     known_defaults <- append(check_file_layout_defaults, check_functions_defaults) 2 0
8     if (!all(names(dots) %in% names(known_defaults))) { 2 0
9         stop(paste("got unkown argument(s): ", paste(names(dots)[!names(dots) %in% names(known_defaults)], collapse = ", "))) 0 0
10     } 0 0
11     arguments <- append(list(path = path), dots) 2 0
12     use <- utils::modifyList(check_file_layout_defaults, arguments, keep.null = TRUE) 2 0
13     arguments_to_use <- use[names(use) %in% names(check_file_layout_defaults)] 2 0
14     arguments_to_use <- arguments_to_use[arguments_to_use != ""] 2 0
15     finding <- tryCatch(do.call("check_file_layout", arguments_to_use), cleanr = function(e) return(e[["message"]])) 2 0
16     findings <- c(findings, finding) 2 0.01
17     use <- utils::modifyList(check_functions_defaults, arguments, keep.null = TRUE) 2 0
18     arguments_to_use <- use[names(use) %in% names(check_functions_defaults)] 2 0
19     arguments_to_use <- arguments_to_use[arguments_to_use != ""] 2 0
20     arguments_to_use <- arguments_to_use[names(arguments_to_use) != "function_name"] 2 0
21     finding <- tryCatch(do.call("check_functions_in_file", arguments_to_use), cleanr = function(e) return(e[["message"]])) 2 0
22     findings <- c(findings, finding) 2 0.14
23     findings <- tidy_findings(findings) 2 0
24     if (!is.null(findings)) { 2 0
25         throw(paste(names(findings), findings, sep = " ", collapse = "\n")) 1 0
26     } 0 0
27     return(invisible(TRUE)) 1 0
28 } 0 0

index graph

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