Running ‘testthat.R’ [119s/242s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > Sys.setenv("R_TESTS" = "")
  > library(testthat)
  > library(personalized)
  Loading required package: glmnet
  Loading required package: Matrix
  Loading required package: foreach
  Loaded glmnet 2.0-16
  
  Loading required package: mgcv
  Loading required package: nlme
  This is mgcv 1.8-23. For overview type 'help("mgcv-package")'.
  Loading required package: gbm
  Loading required package: survival
  Loading required package: lattice
  Loading required package: splines
  Loading required package: parallel
  Loaded gbm 2.1.3
  Loading required package: ggplot2
  Loading required package: plotly
  
  Attaching package: 'plotly'
  
  The following object is masked from 'package:ggplot2':
  
      last_plot
  
  The following object is masked from 'package:stats':
  
      filter
  
  The following object is masked from 'package:graphics':
  
      layout
  
  > 
  > test_check("personalized")
  ── 1. Error: test plotting for continuous outcomes with various options (@test-p
  SETLENGTH() cannot be applied to an ALTVEC object.
  1: plot(subgrp.val, type = "stability") at testthat/test-plotandplotcompare.R:143
  2: plot(subgrp.val, type = "stability")
  3: plot.subgroup_validated(subgrp.val, type = "stability")
  4: subplot(ggplotly(p.primary, tooltip = paste0("tooltip", 1:4)), ggplotly(p.secondary, 
         tooltip = paste0("tooltip", 1:2)), nrows = 2, shareX = TRUE, titleX = TRUE, titleY = TRUE) %>% 
         layout(title = "Variable Selection Across Bootstrap Iterations", showlegend = FALSE, 
             xaxis = list(title = "Plot Index"), yaxis = list(title = "Coefficient Value"), 
             yaxis2 = list(title = "Percent of Times Selected"))
  5: eval(lhs, parent, parent)
  6: eval(lhs, parent, parent)
  7: subplot(ggplotly(p.primary, tooltip = paste0("tooltip", 1:4)), ggplotly(p.secondary, 
         tooltip = paste0("tooltip", 1:2)), nrows = 2, shareX = TRUE, titleX = TRUE, titleY = TRUE)
  8: dots2plots(...)
  9: ggplotly(p.primary, tooltip = paste0("tooltip", 1:4))
  10: ggplotly.ggplot(p.primary, tooltip = paste0("tooltip", 1:4))
  11: gg2list(p, width = width, height = height, tooltip = tooltip, dynamicTicks = dynamicTicks, 
         layerData = layerData, originalData = originalData, source = source, ...)
  12: gg2list_legacy(p, width = width, height = height, tooltip = tooltip, layerData = layerData, 
         originalData = originalData, source = source, ...)
  13: layers2traces(data, prestats_data, layout$panel_layout, plot)
  14: Map(geom2trace, dl, paramz[i], list(p))
  15: mapply(FUN = f, ..., SIMPLIFY = FALSE)
  16: (function (data, params, p) 
     {
         if (nrow(data) == 0) 
             return(geom2trace.GeomBlank(data, params, p))
         UseMethod("geom2trace")
     })(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  17: geom2trace.GeomPolygon(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]])
  18: group2NA(data)
  19: dt[, c(.I, .I[1], NA), by = keyVars]
  20: `[.data.table`(dt, , c(.I, .I[1], NA), by = keyVars)
  
  family:  binomial 
  loss:    logistic_loss_lasso 
  method:  weighting 
  
  validation method:  training_test_replication 
  Cutoff:             Quant_67 
  iterations:         10 
  
  Average Test Set Outcomes:
                              Recommended 0        Recommended 1
  Received 0 0.9051 (SE = 0.0582, n = 13.7)  0 (SE = 0, n = 6.4)
  Received 1 0.2905 (SE = 0.1422, n = 19.3) 1 (SE = 0, n = 10.6)
  
  0 effect among recommended 0 1 effect among recommended 1 
  0.6145 (SE = 0.1551, n = 33)           1 (SE = 0, n = 17) 
  
  Overall Subgroup Effect 
     0.7474 (SE = 0.1011) 
  
  <===============================================>
  
  family:  binomial 
  loss:    logistic_loss_lasso 
  method:  weighting 
  
  validation method:  training_test_replication 
  Cutoff:             Quant_83 
  iterations:         10 
  
  Average Test Set Outcomes:
                              Recommended 0       Recommended 1
  Received 0 0.7712 (SE = 0.1013, n = 16.7) 0 (SE = 0, n = 3.4)
  Received 1 0.4322 (SE = 0.1274, n = 24.3) 1 (SE = 0, n = 5.6)
  
  0 effect among recommended 0 1 effect among recommended 1 
   0.339 (SE = 0.1476, n = 41)            1 (SE = 0, n = 9) 
  
  Overall Subgroup Effect 
      0.469 (SE = 0.1253) 
  family:  binomial 
  loss:    logistic_loss_lasso 
  method:  weighting 
  
  validation method:  training_test_replication 
  Cutoff:             Quant_67 
  iterations:         10 
  
  Average Test Set Outcomes:
                           Recommended 0     Recommended 1
  Received 0 0.9051 (SE = 0.0582, 27.4%) 0 (SE = 0, 12.8%)
  Received 1 0.2905 (SE = 0.1422, 38.6%) 1 (SE = 0, 21.2%)
  
  0 effect among recommended 0 1 effect among recommended 1 
     0.6145 (SE = 0.1551, 66%)              1 (SE = 0, 34%) 
  
  Overall Subgroup Effect 
     0.7474 (SE = 0.1011) 
  
  <===============================================>
  
  family:  binomial 
  loss:    logistic_loss_lasso 
  method:  weighting 
  
  validation method:  training_test_replication 
  Cutoff:             Quant_83 
  iterations:         10 
  
  Average Test Set Outcomes:
                           Recommended 0     Recommended 1
  Received 0 0.7712 (SE = 0.1013, 33.4%)  0 (SE = 0, 6.8%)
  Received 1 0.4322 (SE = 0.1274, 48.6%) 1 (SE = 0, 11.2%)
  
  0 effect among recommended 0 1 effect among recommended 1 
      0.339 (SE = 0.1476, 82%)              1 (SE = 0, 18%) 
  
  Overall Subgroup Effect 
      0.469 (SE = 0.1253) 
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 739 SKIPPED: 0 FAILED: 1
  1. Error: test plotting for continuous outcomes with various options (@test-plotandplotcompare.R#143) 
  
  Error: testthat unit tests failed
  Execution halted