Running ‘test-bmi_for_age.R’ [10s/11s]
  Running ‘test-bp-by-source.R’ [0s/0s]
  Running ‘test-bp_cdf.R’ [1s/1s]
  Running ‘test-bp_chart.R’ [1s/1s]
  Running ‘test-bp_distributions.R’ [0s/0s]
  Running ‘test-bp_parameters.R’ [0s/0s]
  Running ‘test-cppBP.R’ [1s/1s]
  Running ‘test-cppPGSF.R’ [10s/11s]
  Running ‘test-est_norm.R’ [0s/0s]
  Running ‘test-gemelli1990.R’ [0s/0s]
  Running ‘test-gs_chart.R’ [1s/2s]
  Running ‘test-head_circumference_for_age.R’ [8s/9s]
  Running ‘test-height_for_age.R’ [2s/2s]
  Running ‘test-internal-data.R’ [0s/1s]
  Running ‘test-length_for_age.R’ [8s/9s]
  Running ‘test-lms.R’ [0s/1s]
  Running ‘test-lo2013.R’ [0s/1s]
  Running ‘test-nhlbi_bp_norms.R’ [0s/0s]
  Running ‘test-weight_for_age.R’ [10s/11s]
  Running ‘test-weight_for_height.R’ [2s/2s]
  Running ‘test-weight_for_length.R’ [3s/3s]
Running the tests in ‘tests/test-bp_distributions.R’ failed.
Complete output:
  > library(pedbp)
  > 
  > ################################################################################
  > # simple print test
  > print_test <-
  +   q_bp(p_sbp = c(0.5, 0.5), p_dbp = c(0.4, 0.32), age = 13, male = 0)
  > 
  > stopifnot(
  +   identical(
  +     capture.output(print_test)
  +   ,
  +     capture.output(print_test[1:2])
  +   )
  + )
  > 
  > ################################################################################
  > # Verify error if Unknown source
  > x <- tryCatch(p_bp(q_sbp = 0.5, q_dbp = 0.5, male = 0, age = 55, source = c("not-a-source")), error = function(e) e)
  > stopifnot(inherits(x, "error"))
  > stopifnot(identical(x$message, "'arg' should be one of “martin2022”, “gemelli1990”, “nhlbi”, “lo2013”, “flynn2017”") |
  +           identical(x$message, "'arg' should be one of \"martin2022\", \"gemelli1990\", \"nhlbi\", \"lo2013\", \"flynn2017\""))
  > 
  > x <- tryCatch(q_bp(p_sbp = 0.5, p_dbp = 0.5, male = 0, age = 55, source = c("not-a-source")), error = function(e) e)
  > stopifnot(inherits(x, "error"))
  > stopifnot(identical(x$message, "'arg' should be one of “martin2022”, “gemelli1990”, “nhlbi”, “lo2013”, “flynn2017”") |
  +           identical(x$message, "'arg' should be one of \"martin2022\", \"gemelli1990\", \"nhlbi\", \"lo2013\", \"flynn2017\""))
  > 
  > x <- tryCatch(p_bp(q_sbp = 0.5, q_dbp = 0.5, male = 0, age = 55, source = character(0)), error = function(e) e)
  > stopifnot(inherits(x, "error"))
  > stopifnot(identical(x$message, "'arg' should be one of “martin2022”, “gemelli1990”, “nhlbi”, “lo2013”, “flynn2017”") |
  +           identical(x$message, "'arg' should be one of \"martin2022\", \"gemelli1990\", \"nhlbi\", \"lo2013\", \"flynn2017\""))
  Error: identical(x$message, "'arg' should be one of “martin2022”, “gemelli1990”, “nhlbi”, “lo2013”, “flynn2017”") |  .... is not TRUE
  Execution halted