Commit ⋅ fstpackage/lazyvec

Showing 3 of 6 files from the diff.

Newly tracked file

57.96% 100.00% ø

R/lazyvec_diagnostics.R changed.

65.85% 100.00% +48.49%

src/lazyvec_integer.cpp changed.

12.20% 0.00% +0.22%

src/lazyvec_real.cpp changed.

Other files ignored by Codecov

inst/lazyvec_samples/integer_range.R has changed.

prepare/lazyvec_implementation.cpp has changed.

tests/testthat/test_integer_range.R has changed.

@@ -167,7 +167,7 @@

  check_length(x, result, "full_vec")

  cat(crayon::italic(
    crayon::cyan(x$vec_id, "full_vec result = ")),
    crayon::cyan(x$vec_id, ": full_vec result = ")),
    display_parameter(result), "\n", sep = "")

  result

@@ -270,16 +270,31 @@

}


diagnostic_min <- function(x) {
diagnostic_min <- function(x, na_rm) {
  result <- run_user_method2(user_method_min, x, na_rm)

  check_type(x, result, "min")
  check_fixed_length(result, "min", 1)

  cat(crayon::italic(
    crayon::cyan(x[[1]], ": min: result = ")),
    display_parameter(x[[2]]), "\n", sep = "")
    crayon::cyan(x$vec_id, ": min : result = ")),
    display_parameter(result), "\n", sep = "")

  result
}


diagnostic_max <- function(x) {
  cat(crayon::italic(crayon::cyan(" max: result = ")),
      display_parameter(x), "\n", sep = "")
diagnostic_max <- function(x, na_rm) {
  result <- run_user_method2(user_method_max, x, na_rm)

  check_type(x, result, "max")
  check_fixed_length(result, "max", 1)

  cat(crayon::italic(
    crayon::cyan(x$vec_id, ": max : result = ")),
    display_parameter(result), "\n", sep = "")

  result
}



@@ -241,19 +241,18 @@

  // calling environment
  SEXP calling_env = PROTECT(LAZYVEC_PACKAGE_ENV(x));
  
  // length listener method
  // min listener method
  SEXP min_listener = PROTECT(VECTOR_ELT(LAZYVEC_DIAGNOSTICS(x), LAZYVEC_METHOD_MIN));
  
  // na_rm argument
  SEXP na_rm_arg = PROTECT(Rf_ScalarInteger(na_rm));
  SEXP na_rm_arg = PROTECT(Rf_ScalarLogical(na_rm));
  
  // ALTREP override
  // should return a length 1 vector containing the element
  SEXP custom_element = PROTECT(call_dual_r_interface(min_listener, user_data, na_rm_arg, calling_env));
  // returns SEXP (integer or double)
  SEXP custom_min = PROTECT(call_dual_r_interface(min_listener, user_data, na_rm_arg, calling_env));
  
  UNPROTECT(5);  // last PROTECT could be removed
  UNPROTECT(5);
  
  return custom_element;
  return custom_min;
}



@@ -265,19 +264,18 @@

  // calling environment
  SEXP calling_env = PROTECT(LAZYVEC_PACKAGE_ENV(x));
  
  // length listener method
  // max listener method
  SEXP max_listener = PROTECT(VECTOR_ELT(LAZYVEC_DIAGNOSTICS(x), LAZYVEC_METHOD_MAX));
  
  // na_rm argument
  SEXP na_rm_arg = PROTECT(Rf_ScalarInteger(na_rm));
  SEXP na_rm_arg = PROTECT(Rf_ScalarLogical(na_rm));
  
  // ALTREP override
  // should return a length 1 vector containing the element
  SEXP custom_element = PROTECT(call_dual_r_interface(max_listener, user_data, na_rm_arg, calling_env));
  // returns SEXP (integer or double)
  SEXP custom_max = PROTECT(call_dual_r_interface(max_listener, user_data, na_rm_arg, calling_env));
  
  UNPROTECT(5);  // last PROTECT could be removed
  UNPROTECT(5);
  
  return custom_element;
  return custom_max;
}



@@ -241,19 +241,18 @@

  // calling environment
  SEXP calling_env = PROTECT(LAZYVEC_PACKAGE_ENV(x));
  
  // length listener method
  // min listener method
  SEXP min_listener = PROTECT(VECTOR_ELT(LAZYVEC_DIAGNOSTICS(x), LAZYVEC_METHOD_MIN));
  
  // na_rm argument
  SEXP na_rm_arg = PROTECT(Rf_ScalarInteger(na_rm));
  SEXP na_rm_arg = PROTECT(Rf_ScalarLogical(na_rm));
  
  // ALTREP override
  // should return a length 1 vector containing the element
  SEXP custom_element = PROTECT(call_dual_r_interface(min_listener, user_data, na_rm_arg, calling_env));
  // returns SEXP (integer or double)
  SEXP custom_min = PROTECT(call_dual_r_interface(min_listener, user_data, na_rm_arg, calling_env));
  
  UNPROTECT(5);  // last PROTECT could be removed
  UNPROTECT(5);
  
  return custom_element;
  return custom_min;
}



@@ -265,19 +264,18 @@

  // calling environment
  SEXP calling_env = PROTECT(LAZYVEC_PACKAGE_ENV(x));
  
  // length listener method
  // max listener method
  SEXP max_listener = PROTECT(VECTOR_ELT(LAZYVEC_DIAGNOSTICS(x), LAZYVEC_METHOD_MAX));
  
  // na_rm argument
  SEXP na_rm_arg = PROTECT(Rf_ScalarInteger(na_rm));
  SEXP na_rm_arg = PROTECT(Rf_ScalarLogical(na_rm));
  
  // ALTREP override
  // should return a length 1 vector containing the element
  SEXP custom_element = PROTECT(call_dual_r_interface(max_listener, user_data, na_rm_arg, calling_env));
  // returns SEXP (integer or double)
  SEXP custom_max = PROTECT(call_dual_r_interface(max_listener, user_data, na_rm_arg, calling_env));
  
  UNPROTECT(5);  // last PROTECT could be removed
  UNPROTECT(5);
  
  return custom_element;
  return custom_max;
}



Files		•	•	Coverage
R	363	212	151	58.40%
src	2,009	538	1,471	26.78%
Project Totals (23 files)	2,372	750	1,622	31.62%

View CI Build Download

No yaml found.

Create your codecov.yml to customize your Codecov experience

Read the docs

Interact now

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.

SVG

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.

SVG

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.

SVG

Learn more about the coverage sunburst graph

167	167		check_length(x, result, "full_vec")
168	168
169	169		cat(crayon::italic(
170		-	crayon::cyan(x$vec_id, "full_vec result = ")),
	170	+	crayon::cyan(x$vec_id, ": full_vec result = ")),
171	171		display_parameter(result), "\n", sep = "")
172	172
173	173		result

270	270		}
271	271
272	272
273		-	diagnostic_min <- function(x) {
	273	+	diagnostic_min <- function(x, na_rm) {
	274	+	result <- run_user_method2(user_method_min, x, na_rm)
	275	+
	276	+	check_type(x, result, "min")
	277	+	check_fixed_length(result, "min", 1)
	278	+
274	279		cat(crayon::italic(
275		-	crayon::cyan(x[[1]], ": min: result = ")),
276		-	display_parameter(x[[2]]), "\n", sep = "")
	280	+	crayon::cyan(x$vec_id, ": min : result = ")),
	281	+	display_parameter(result), "\n", sep = "")
	282	+
	283	+	result
277	284		}
278	285
279	286
280		-	diagnostic_max <- function(x) {
281		-	cat(crayon::italic(crayon::cyan(" max: result = ")),
282		-	display_parameter(x), "\n", sep = "")
	287	+	diagnostic_max <- function(x, na_rm) {
	288	+	result <- run_user_method2(user_method_max, x, na_rm)
	289	+
	290	+	check_type(x, result, "max")
	291	+	check_fixed_length(result, "max", 1)
	292	+
	293	+	cat(crayon::italic(
	294	+	crayon::cyan(x$vec_id, ": max : result = ")),
	295	+	display_parameter(result), "\n", sep = "")
	296	+
	297	+	result
283	298		}
284	299
285	300

241	241		// calling environment
242	242		SEXP calling_env = PROTECT(LAZYVEC_PACKAGE_ENV(x));
243	243
244		-	// length listener method
	244	+	// min listener method
245	245		SEXP min_listener = PROTECT(VECTOR_ELT(LAZYVEC_DIAGNOSTICS(x), LAZYVEC_METHOD_MIN));
246	246
247	247		// na_rm argument
248		-	SEXP na_rm_arg = PROTECT(Rf_ScalarInteger(na_rm));
	248	+	SEXP na_rm_arg = PROTECT(Rf_ScalarLogical(na_rm));
249	249
250		-	// ALTREP override
251		-	// should return a length 1 vector containing the element
252		-	SEXP custom_element = PROTECT(call_dual_r_interface(min_listener, user_data, na_rm_arg, calling_env));
	250	+	// returns SEXP (integer or double)
	251	+	SEXP custom_min = PROTECT(call_dual_r_interface(min_listener, user_data, na_rm_arg, calling_env));
253	252
254		-	UNPROTECT(5); // last PROTECT could be removed
	253	+	UNPROTECT(5);
255	254
256		-	return custom_element;
	255	+	return custom_min;
257	256		}
258	257
259	258

265	264		// calling environment
266	265		SEXP calling_env = PROTECT(LAZYVEC_PACKAGE_ENV(x));
267	266
268		-	// length listener method
	267	+	// max listener method
269	268		SEXP max_listener = PROTECT(VECTOR_ELT(LAZYVEC_DIAGNOSTICS(x), LAZYVEC_METHOD_MAX));
270	269
271	270		// na_rm argument
272		-	SEXP na_rm_arg = PROTECT(Rf_ScalarInteger(na_rm));
	271	+	SEXP na_rm_arg = PROTECT(Rf_ScalarLogical(na_rm));
273	272
274		-	// ALTREP override
275		-	// should return a length 1 vector containing the element
276		-	SEXP custom_element = PROTECT(call_dual_r_interface(max_listener, user_data, na_rm_arg, calling_env));
	273	+	// returns SEXP (integer or double)
	274	+	SEXP custom_max = PROTECT(call_dual_r_interface(max_listener, user_data, na_rm_arg, calling_env));
277	275
278		-	UNPROTECT(5); // last PROTECT could be removed
	276	+	UNPROTECT(5);
279	277
280		-	return custom_element;
	278	+	return custom_max;
281	279		}
282	280
283	281

241	241		// calling environment
242	242		SEXP calling_env = PROTECT(LAZYVEC_PACKAGE_ENV(x));
243	243
244		-	// length listener method
	244	+	// min listener method
245	245		SEXP min_listener = PROTECT(VECTOR_ELT(LAZYVEC_DIAGNOSTICS(x), LAZYVEC_METHOD_MIN));
246	246
247	247		// na_rm argument
248		-	SEXP na_rm_arg = PROTECT(Rf_ScalarInteger(na_rm));
	248	+	SEXP na_rm_arg = PROTECT(Rf_ScalarLogical(na_rm));
249	249
250		-	// ALTREP override
251		-	// should return a length 1 vector containing the element
252		-	SEXP custom_element = PROTECT(call_dual_r_interface(min_listener, user_data, na_rm_arg, calling_env));
	250	+	// returns SEXP (integer or double)
	251	+	SEXP custom_min = PROTECT(call_dual_r_interface(min_listener, user_data, na_rm_arg, calling_env));
253	252
254		-	UNPROTECT(5); // last PROTECT could be removed
	253	+	UNPROTECT(5);
255	254
256		-	return custom_element;
	255	+	return custom_min;
257	256		}
258	257
259	258

Navigation	Overlay
`t` Navigate files	`h` Toggle hits
`y` Change url to tip of branch	`m` Toggle misses
`b / v` Jump to prev/next hit line	`p` Toggle partial
`z / x` Jump to prev/next missed or partial line	`1..9` Toggle flags
`shift + o` Open current page in GitHub	`a` Toggle all on
`/ or ?` Show keyboard shortcuts dialog	`c` Toggle context lines or commits