Running 'test-add_sim_index_number.R' [10s]
  Running 'test-filter_dv.R' [0s]
  Running 'test-labeller.R' [4s]
  Running 'test-softwaretype.R' [0s]
  Running 'test-strat-col-detection.R' [0s]
  Running 'test-vpc.R' [4s]
  Running 'test-vpc_cat.R' [2s]
  Running 'test-vpc_cens.R' [5s]
  Running 'test-vpc_tte.R' [8s]
Running the tests in 'tests/test-vpc_cat.R' failed.
Complete output:
  > library(vpc)
  > library(testit)
  > Sys.setenv("R_TESTS" = "")
  > 
  > tmp <- simple_data
  > cat <- cut(tmp$obs$DV, breaks = c(-1, 10, 40, 1000))
  > tmp$obs$DV <- match(cat, levels(cat))
  > cat2 <- cut(tmp$sim$DV, breaks = c(-1, 10, 40, 1000))
  > tmp$sim$DV <- match(cat2, levels(cat2))
  > obj <- vpc_cat(sim = tmp$sim, obs = tmp$obs, vpcdb = TRUE)
  New names:
  * sim -> sim...1
  * bin -> bin...2
  * `fact_perc(dv, lev[i])` -> `fact_perc(dv, lev[i])...3`
  * sim -> sim...4
  * bin -> bin...5
  * ...
  New names:
  * strat -> strat...1
  * bin -> bin...2
  * strat -> strat...4
  * bin -> bin...5
  * strat -> strat...7
  * ...
  Error in names(x) <- value : 
    'names' attribute [6] must be the same length as the vector [4]
  Calls: vpc_cat -> colnames<-
  Execution halted
Running the tests in 'tests/test-vpc_cens.R' failed.
Complete output:
  > library(vpc)
  > library(testit)
  > Sys.setenv("R_TESTS" = "")
  > 
  > ## Test regular vpc in presence of lloq / uloq data
  > obj1 <- vpc(sim = vpc::simple_data$sim, obs = vpc::simple_data$obs, uloq = 120, vpcdb = TRUE)
  > obj2 <- vpc(sim = vpc::simple_data$sim, obs = vpc::simple_data$obs, lloq = 20, vpcdb = TRUE)
  > assert("6 values in upper percentile flagged as >uloq", vpc:::is_equal(sum(is.na(obj1$aggr_obs$obs95)), 6))
  > assert("4 values in upper percentile flagged as <lloq", vpc:::is_equal(sum(is.na(obj2$aggr_obs$obs5)), 4))
  > assert("1 values in upper percentile flagged as <lloq", vpc:::is_equal(sum(is.na(obj2$aggr_obs$obs50)), 1))
  > 
  > ## test vpc func
  > obj <- vpc_cens(sim = vpc::simple_data$sim, obs = vpc::simple_data$obs, 
  +               lloq = 30, n_bins = 8, vpcdb = TRUE)
  New names:
  * strat -> strat...1
  * sim -> sim...2
  * bin -> bin...3
  * strat -> strat...5
  * sim -> sim...6
  * ...
  Error: Must group by variables found in `.data`.
  * Column `strat` is not found.
  * Column `bin` is not found.
  Backtrace:
       x
    1. \-vpc::vpc_cens(...)
    2.   \-aggr_sim %>% dplyr::group_by(strat, bin)
    3.     +-base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
    4.     \-base::eval(quote(`_fseq`(`_lhs`)), env, env)
    5.       \-base::eval(quote(`_fseq`(`_lhs`)), env, env)
    6.         \-vpc:::`_fseq`(`_lhs`)
    7.           \-magrittr::freduce(value, `_function_list`)
    8.             +-base::withVisible(function_list[[k]](value))
    9.             \-function_list[[k]](value)
   10.               +-dplyr::group_by(., strat, bin)
   11.               \-dplyr:::group_by.data.frame(., strat, bin)
   12.                 \-dplyr::group_by_prepare(.data, ..., .add = .add)
  Execution halted