* using log directory ‘/data/blackswan/ripley/R/packages/tests-devel/cellKey.Rcheck’
* using R Under development (unstable) (2025-12-20 r89211)
* using platform: x86_64-pc-linux-gnu
* R was compiled by
    gcc (GCC) 14.2.1 20240912 (Red Hat 14.2.1-3)
    GNU Fortran (GCC) 14.2.1 20240912 (Red Hat 14.2.1-3)
* running under: Fedora Linux 40 (Workstation Edition)
* using session charset: UTF-8
* checking for file ‘cellKey/DESCRIPTION’ ... OK
* checking extension type ... Package
* this is package ‘cellKey’ version ‘1.0.3’
* package encoding: UTF-8
* checking package namespace information ... OK
* checking package dependencies ... OK
* checking if this is a source package ... OK
* checking if there is a namespace ... OK
* checking for executable files ... OK
* checking for hidden files and directories ... OK
* checking for portable file names ... OK
* checking for sufficient/correct file permissions ... OK
* checking whether package ‘cellKey’ can be installed ... [46s/46s] OK
* checking package directory ... OK
* checking ‘build’ directory ... OK
* checking DESCRIPTION meta-information ... OK
* checking top-level files ... OK
* checking for left-over files ... OK
* checking index information ... OK
* checking package subdirectories ... OK
* checking code files for non-ASCII characters ... OK
* checking R files for syntax errors ... OK
* checking whether the package can be loaded ... OK
* checking whether the package can be loaded with stated dependencies ... OK
* checking whether the package can be unloaded cleanly ... OK
* checking whether the namespace can be loaded with stated dependencies ... OK
* checking whether the namespace can be unloaded cleanly ... OK
* checking loading without being on the library search path ... OK
* checking whether startup messages can be suppressed ... OK
* checking dependencies in R code ... OK
* checking S3 generic/method consistency ... OK
* checking replacement functions ... OK
* checking foreign function calls ... OK
* checking R code for possible problems ... [16s/16s] OK
* checking Rd files ... OK
* checking Rd metadata ... OK
* checking Rd line widths ... OK
* checking Rd cross-references ... OK
* checking for missing documentation entries ... OK
* checking for code/documentation mismatches ... OK
* checking Rd \usage sections ... OK
* checking Rd contents ... OK
* checking for unstated dependencies in examples ... OK
* checking contents of ‘data’ directory ... OK
* checking data for non-ASCII characters ... OK
* checking LazyData ... OK
* checking data for ASCII and uncompressed saves ... OK
* checking installed files from ‘inst/doc’ ... OK
* checking files in ‘vignettes’ ... OK
* checking examples ... ERROR
Running examples in ‘cellKey-Ex.R’ failed
The error most likely occurred in:

> ### Name: ck_params_nums
> ### Title: Set perturbation parameters for continuous variables
> ### Aliases: ck_params_nums
> 
> ### ** Examples
> 
> # create a perturbation table using
> # functionality from ptable-pkg; see help(pa = "ptable")
> # this returns an extra ptable for very small cells
> ptab <- ptable::pt_ex_nums(separation = TRUE)
Error in `[.data.table`(dt, , `:=`(p_int_ub, cumsum(p)), by = list(i)) : 
  attempt access index 7/7 in VECTOR_ELT
Calls: <Anonymous> ... create_ptable -> pt_create_pTable -> [ -> [.data.table
Execution halted
* checking examples with --run-donttest ... ERROR
Running examples in ‘cellKey-Ex.R’ failed
The error most likely occurred in:

> ### Name: ck_class
> ### Title: R6 Class defining statistical tables that can be perturbed
> ### Aliases: ck_class cellkey_pkg ck_setup
> 
> ### ** Examples
> 
> ## No test: 
> x <- ck_create_testdata()
> 
> # create some 0/1 variables that should be perturbed later
> x[, cnt_females := ifelse(sex == "male", 0, 1)]
> x[, cnt_males := ifelse(sex == "male", 1, 0)]
> x[, cnt_highincome := ifelse(income >= 9000, 1, 0)]
> # a variable with positive and negative contributions
> x[, mixed := sample(-10:10, nrow(x), replace = TRUE)]
> 
> # create record keys
> x$rkey <- ck_generate_rkeys(dat = x)
> 
> # define required inputs
> 
> # hierarchy with some bogus codes
> d_sex <- hier_create(root = "Total", nodes = c("male", "female"))
> d_sex <- hier_add(d_sex, root = "female", "f")
> d_sex <- hier_add(d_sex, root = "male", "m")
> 
> d_age <- hier_create(root = "Total", nodes = paste0("age_group", 1:6))
> d_age <- hier_add(d_age, root = "age_group1", "ag1a")
> d_age <- hier_add(d_age, root = "age_group2", "ag2a")
> 
> # define the cell key object
> countvars <- c("cnt_females", "cnt_males", "cnt_highincome")
> numvars <- c("expend", "income", "savings", "mixed")
> tab <- ck_setup(
+   x = x,
+   rkey = "rkey",
+   dims = list(sex = d_sex, age = d_age),
+   w = "sampling_weight",
+   countvars = countvars,
+   numvars = numvars)
computing contributing indices | rawdata <--> table; this might take a while
> 
> # show some information about this table instance
> tab$print() # identical with print(tab)
── Table Information ───────────────────────────────────────────────────────────
✔ 45 cells in 2 dimensions ('sex', 'age')
✔ weights: yes
── Tabulated / Perturbed countvars ─────────────────────────────────────────────
☐ 'total'
☐ 'cnt_females'
☐ 'cnt_males'
☐ 'cnt_highincome'
── Tabulated / Perturbed numvars ───────────────────────────────────────────────
☐ 'expend'
☐ 'income'
☐ 'savings'
☐ 'mixed'
> 
> # information about the hierarchies
> tab$hierarchy_info()
$sex
     code level is_leaf parent
   <char> <int>  <lgcl> <char>
1:  Total     1   FALSE  Total
2:   male     2   FALSE  Total
3:      m     3    TRUE   male
4: female     2   FALSE  Total
5:      f     3    TRUE female

$age
         code level is_leaf     parent
       <char> <int>  <lgcl>     <char>
1:      Total     1   FALSE      Total
2: age_group1     2   FALSE      Total
3:       ag1a     3    TRUE age_group1
4: age_group2     2   FALSE      Total
5:       ag2a     3    TRUE age_group2
6: age_group3     2    TRUE      Total
7: age_group4     2    TRUE      Total
8: age_group5     2    TRUE      Total
9: age_group6     2    TRUE      Total

> 
> # which variables have been defined?
> tab$allvars()
$cntvars
[1] "total"          "cnt_females"    "cnt_males"      "cnt_highincome"

$numvars
[1] "expend"  "income"  "savings" "mixed"  

> 
> # count variables
> tab$cntvars()
[1] "total"          "cnt_females"    "cnt_males"      "cnt_highincome"
> 
> # continuous variables
> tab$numvars()
[1] "expend"  "income"  "savings" "mixed"  
> 
> # create perturbation parameters for "total" variable and
> # write to yaml-file
> 
> # create a ptable using functionality from the ptable-pkg
> f_yaml <- tempfile(fileext = ".yaml")
> p_cnts1 <- ck_params_cnts(
+   ptab = ptable::pt_ex_cnts(),
+   path = f_yaml)
Error in `[.data.table`(dt, , `:=`(p_int_ub, cumsum(p)), by = list(i)) : 
  attempt access index 7/7 in VECTOR_ELT
Calls: ck_params_cnts ... create_ptable -> pt_create_pTable -> [ -> [.data.table
Execution halted
* checking for unstated dependencies in ‘tests’ ... OK
* checking tests ...
  Running ‘testthat.R’
 OK
* checking for unstated dependencies in vignettes ... OK
* checking package vignettes ... OK
* checking re-building of vignette outputs ... OK
* checking PDF version of manual ... OK
* checking for non-standard things in the check directory ... OK
* checking for detritus in the temp directory ... OK
* checking for new files in some other directories ... OK
* DONE

Status: 2 ERRORs
See
  ‘/data/blackswan/ripley/R/packages/tests-devel/cellKey.Rcheck/00check.log’
for details.

Command exited with non-zero status 1
Time 2:49.44, 146.67 + 21.77