Running 'clinical_vignettes.R' [0s]
  Running 'test-phoenix8.R' [3s]
  Running 'test-phoenix_cardiovascular.R' [0s]
  Running 'test-phoenix_coagulation.R' [0s]
  Running 'test-phoenix_endocrine.R' [156s]
  Running 'test-phoenix_hepatic.R' [154s]
  Running 'test-phoenix_immunologic.R' [0s]
  Running 'test-phoenix_neurologic.R' [0s]
  Running 'test-phoenix_renal.R' [0s]
  Running 'test-phoenix_respiratory.R' [0s]
Running the tests in 'tests/test-phoenix_endocrine.R' failed.
Complete output:
  > library(phoenix)
  > 
  > ################################################################################
  > # verify that the return is an integer vector
  > eg <- phoenix_endocrine(glucose, sepsis)
  > stopifnot(is.integer(eg))
  > 
  > ################################################################################
  > # verify that a single 0 is returned when nothing is passed, or just a data set
  > # is passed
  > stopifnot(identical(phoenix_endocrine(), 0L))
  > stopifnot(identical(phoenix_endocrine(data = sepsis), 0L))
  > 
  > ################################################################################
  > #                                 End of File                                  #
  > ################################################################################
  > 
  > proc.time()
     user  system elapsed 
     0.17    0.07    0.23 
Running the tests in 'tests/test-phoenix_hepatic.R' failed.
Complete output:
  > library(phoenix)
  > 
  > ################################################################################
  > # verify that the return is an integer vector
  > eg <- phoenix_hepatic(bilirubin, alt, data = sepsis)
  > stopifnot("return is an integer vector" = is.integer(eg))
  > 
  > ################################################################################
  > # verify that a single 0 is returned when nothing is passed, or just a data set
  > # is passed
  > stopifnot(identical(phoenix_hepatic(), 0L))
  > stopifnot(identical(phoenix_hepatic(data = sepsis), 0L))
  > 
  > ################################################################################
  > # verify error if lengths differ
  > x <- tryCatch(phoenix_hepatic(bilirubin = numeric(0)), error = function(e) e)
  > stopifnot(inherits(x, "simpleError"))
  > stopifnot(identical(
  +   x$message,
  +  "All inputs need to either have the same length or have length 1. Length of bilirubin is 0; Length of alt is 1."
  + ))
  > 
  > x <- tryCatch(phoenix_hepatic(bilirubin = c(NA, NA), alt = c(NA, NA, NA)), error = function(e) e)
  > stopifnot(inherits(x, "simpleError"))
  > stopifnot(identical(
  +   x$message,
  +  "All inputs need to either have the same length or have length 1. Length of bilirubin is 2; Length of alt is 3."
  + ))
  > 
  > 
  > ################################################################################
  > #                                 End of File                                  #
  > ################################################################################
  > 
  > proc.time()
     user  system elapsed 
     0.23    0.00    0.21