Showing 1 of 4 files from the diff.

@@ -159,7 +159,6 @@
Loading
159 159
160 160
161 161
diagnostic_full_vec <- function(x) {
162 -
163 162
  result <- run_user_method(user_method_full_vec, x)
164 163
165 164
  check_type(x, result, "full_vec")
@@ -332,14 +331,23 @@
Loading
332 331
}
333 332
334 333
335 -
diagnostic_extract_subset <- function(x) {
336 -
  subset_result <- x[[1]]
337 -
  if (is.null(subset_result)) subset_result <- "NULL"
338 -
  cat(crayon::italic(crayon::cyan("extract_subset:  result = ")),
339 -
      display_parameter(subset_result),
340 -
      crayon::italic(crayon::cyan(", indx =")),
341 -
      display_parameter(x[[2]]),
342 -
      crayon::italic(crayon::cyan(", call =")),
343 -
      display_parameter(str(x[[3]])),
344 -
      "\n", sep = "")
334 +
diagnostic_extract_subset <- function(x, index) {
335 +
  if (length(index > 0)) {
336 +
    vec_length <- run_user_method(user_method_length, x)
337 +
    if (max(index) > vec_length) {
338 +
      warning("Method extract_subset called with index containing elements larger than the vector length")
339 +
    }
340 +
  }
341 +
342 +
  result <- run_user_method2(user_method_extract_subset, x, index)
343 +
344 +
  check_type(x, result, "full_vec")
345 +
346 +
  check_fixed_length(result, "extract_subset", length(index))
347 +
348 +
  cat(crayon::italic(
349 +
    crayon::cyan(x$vec_id, ": extract_subset result = ")),
350 +
    display_parameter(result), "\n", sep = "")
351 +
352 +
  result
345 353
}
Files Coverage
R 61.98%
src 27.74%
Project Totals (23 files) 32.96%
Sunburst
The inner-most circle is the entire project, moving away from the center are folders then, finally, a single file. The size and color of each slice is representing the number of statements and the coverage, respectively.
Icicle
The top section represents the entire project. Proceeding with folders and finally individual files. The size and color of each slice is representing the number of statements and the coverage, respectively.
Grid
Each block represents a single file in the project. The size and color of each block is represented by the number of statements and the coverage, respectively.
Loading