insightsengineering / tern

Table, Listings, and Graphs (TLG) library for common outputs used in clinical trials
https://insightsengineering.github.io/tern/
Other
77 stars 22 forks source link

rhub - nosuggests fails #1338

Closed pawelru closed 1 month ago

pawelru commented 1 month ago

https://github.com/insightsengineering/tern/actions/runs/11423183175/job/31782077445

* checking examples ... ERROR
Running examples in ‘tern-Ex.R’ failed
The error most likely occurred in:
> ### Name: g_forest
> ### Title: Create a forest plot from an 'rtable'
> ### Aliases: g_forest
> 
> ### ** Examples
> 
> library(dplyr)
Attaching package: ‘dplyr’
The following objects are masked from ‘package:stats’:
    filter, lag
The following objects are masked from ‘package:base’:
    intersect, setdiff, setequal, union
> library(forcats)
> library(nestcolor)
Error in library(nestcolor) : there is no package called ‘nestcolor’
Execution halted
* checking tests ...
  Running ‘testthat.R’
 ERROR
── Failed tests ────────────────────────────────────────────────────────────────
  Error ('test-g_lineplot.R:7:3'): g_lineplot works with default settings
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'nestcolor'
  Backtrace:
       ▆
    1. ├─testthat::expect_silent(g_lineplot <- g_lineplot(adlb, adsl)) at test-g_lineplot.R:7:3
    2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ ├─withr::with_output_sink(...)
    5. │   │ │ └─base::force(code)
    6. │   │ ├─base::withCallingHandlers(...)
    7. │   │ └─base::withVisible(code)
    8. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. ├─tern::g_lineplot(adlb, adsl)
   10. └─base::loadNamespace(x) at tern/R/g_lineplot.R:413:3
   11.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   12.     └─base (local) withOneRestart(expr, restarts[[1L]])
   13.       └─base (local) doWithOneRestart(return(expr), restart)

  Error ('test-g_lineplot.R:13:3'): g_lineplot works with custom settings and statistics table
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'nestcolor'
  Backtrace:
       ▆
    1. ├─testthat::expect_silent(...) at test-g_lineplot.R:13:3
    2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ ├─withr::with_output_sink(...)
    5. │   │ │ └─base::force(code)
    6. │   │ ├─base::withCallingHandlers(...)
    7. │   │ └─base::withVisible(code)
    8. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. ├─withr::with_options(...)
   10. │ └─base::force(code)
   11. ├─tern::g_lineplot(...)
   12. └─base::loadNamespace(x) at tern/R/g_lineplot.R:413:3
   13.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   14.     └─base (local) withOneRestart(expr, restarts[[1L]])
   15.       └─base (local) doWithOneRestart(return(expr), restart)

  Error ('test-g_lineplot.R:34:3'): g_lineplot works with cohort_id specified
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'nestcolor'
  Backtrace:
       ▆
    1. ├─testthat::expect_silent(...) at test-g_lineplot.R:34:3
    2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ ├─withr::with_output_sink(...)
    5. │   │ │ └─base::force(code)
    6. │   │ ├─base::withCallingHandlers(...)
    7. │   │ └─base::withVisible(code)
    8. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. ├─withr::with_options(...)
   10. │ └─base::force(code)
   11. ├─tern::g_lineplot(...)
   12. └─base::loadNamespace(x) at tern/R/g_lineplot.R:413:3
   13.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   14.     └─base (local) withOneRestart(expr, restarts[[1L]])
   15.       └─base (local) doWithOneRestart(return(expr), restart)

  Error ('test-g_lineplot.R:55:3'): g_lineplot maintains factor levels in legend
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'nestcolor'
  Backtrace:
       ▆
    1. ├─testthat::expect_silent(...) at test-g_lineplot.R:55:3
    2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ ├─withr::with_output_sink(...)
    5. │   │ │ └─base::force(code)
    6. │   │ ├─base::withCallingHandlers(...)
    7. │   │ └─base::withVisible(code)
    8. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. ├─withr::with_options(...)
   10. │ └─base::force(code)
   11. ├─tern::g_lineplot(...)
   12. └─base::loadNamespace(x) at tern/R/g_lineplot.R:413:3
   13.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   14.     └─base (local) withOneRestart(expr, restarts[[1L]])
   15.       └─base (local) doWithOneRestart(return(expr), restart)

  Error ('test-g_lineplot.R:75:3'): g_lineplot does not produce a warning if group_var has >6 levels
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'nestcolor'
  Backtrace:
       ▆
    1. ├─testthat::expect_silent(...) at test-g_lineplot.R:75:3
    2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ ├─withr::with_output_sink(...)
    5. │   │ │ └─base::force(code)
    6. │   │ ├─base::withCallingHandlers(...)
    7. │   │ └─base::withVisible(code)
    8. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. ├─withr::with_options(...)
   10. │ └─base::force(code)
   11. ├─tern::g_lineplot(adlb, variables = control_lineplot_vars(group_var = "FACTOR7"))
   12. └─base::loadNamespace(x) at tern/R/g_lineplot.R:413:3
   13.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   14.     └─base (local) withOneRestart(expr, restarts[[1L]])
   15.       └─base (local) doWithOneRestart(return(expr), restart)

  Error ('test-g_lineplot.R:85:3'): g_lineplot works with facet_var specified
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'nestcolor'
  Backtrace:
      ▆
   1. ├─withr::with_options(...) at test-g_lineplot.R:85:3
   2. │ └─base::force(code)
   3. ├─tern::g_lineplot(...)
   4. └─base::loadNamespace(x) at tern/R/g_lineplot.R:413:3
   5.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   6.     └─base (local) withOneRestart(expr, restarts[[1L]])
   7.       └─base (local) doWithOneRestart(return(expr), restart)

  Error ('test-g_lineplot.R:103:3'): g_lineplot xticks, xlim, and ylim arguments work
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'nestcolor'
  Backtrace:
      ▆
   1. ├─withr::with_options(...) at test-g_lineplot.R:103:3
   2. │ └─base::force(code)
   3. ├─tern::g_lineplot(...)
   4. └─base::loadNamespace(x) at tern/R/g_lineplot.R:413:3
   5.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   6.     └─base (local) withOneRestart(expr, restarts[[1L]])
   7.       └─base (local) doWithOneRestart(return(expr), restart)

  Error ('test-g_lineplot.R:150:3'): g_lineplot works with no strata (group_var) and allows points when only one strata is provided
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'nestcolor'
  Backtrace:
      ▆
   1. ├─withr::with_options(...) at test-g_lineplot.R:150:3
   2. │ └─base::force(code)
   3. ├─tern::g_lineplot(adlb2, adsl2, variables = control_lineplot_vars(group_var = NULL))
   4. └─base::loadNamespace(x) at tern/R/g_lineplot.R:413:3
   5.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   6.     └─base (local) withOneRestart(expr, restarts[[1L]])
   7.       └─base (local) doWithOneRestart(return(expr), restart)

  Error ('test-g_lineplot.R:205:3'): linetype works as well as col with manual scaling and other options (errorbar_width)
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'nestcolor'
  Backtrace:
       ▆
    1. ├─testthat::expect_silent(...) at test-g_lineplot.R:205:3
    2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ ├─withr::with_output_sink(...)
    5. │   │ │ └─base::force(code)
    6. │   │ ├─base::withCallingHandlers(...)
    7. │   │ └─base::withVisible(code)
    8. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. ├─withr::with_options(...)
   10. │ └─base::force(code)
   11. ├─tern::g_lineplot(...)
   12. └─base::loadNamespace(x) at tern/R/g_lineplot.R:413:3
   13.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   14.     └─base (local) withOneRestart(expr, restarts[[1L]])
   15.       └─base (local) doWithOneRestart(return(expr), restart)

  Error ('test-g_lineplot.R:223:3'): NA values are removed also from the table plot
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'nestcolor'
  Backtrace:
       ▆
    1. ├─testthat::expect_silent(...) at test-g_lineplot.R:223:3
    2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ ├─withr::with_output_sink(...)
    5. │   │ │ └─base::force(code)
    6. │   │ ├─base::withCallingHandlers(...)
    7. │   │ └─base::withVisible(code)
    8. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. ├─withr::with_options(...)
   10. │ └─base::force(code)
   11. ├─tern::g_lineplot(adlb, table = "n")
   12. └─base::loadNamespace(x) at tern/R/g_lineplot.R:413:3
   13.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   14.     └─base (local) withOneRestart(expr, restarts[[1L]])
   15.       └─base (local) doWithOneRestart(return(expr), restart)

  Error ('test-h_km.R:159:3'): h_ggkm, h_decompose_gg, h_grob_y_annot, and h_km_layout return deprecation warnings
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'nestcolor'
  Backtrace:
       ▆
    1. ├─lifecycle::expect_deprecated(...) at test-h_km.R:159:3
    2. │ └─testthat::expect_warning(...)
    3. │   └─testthat:::expect_condition_matching(...)
    4. │     └─testthat:::quasi_capture(...)
    5. │       ├─testthat (local) .capture(...)
    6. │       │ └─base::withCallingHandlers(...)
    7. │       └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    8. ├─tern::h_ggkm(...)
    9. └─base::loadNamespace(x) at tern/R/h_km.R:471:3
   10.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   11.     └─base (local) withOneRestart(expr, restarts[[1L]])
   12.       └─base (local) doWithOneRestart(return(expr), restart)

  Error ('test-individual_patient_plot.R:22:3'): h_g_ipp works with default color palette
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'nestcolor'
  Backtrace:
       ▆
    1. ├─testthat::expect_silent(...) at test-individual_patient_plot.R:22:3
    2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ ├─withr::with_output_sink(...)
    5. │   │ │ └─base::force(code)
    6. │   │ ├─base::withCallingHandlers(...)
    7. │   │ └─base::withVisible(code)
    8. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. ├─tern::h_g_ipp(...)
   10. └─base::loadNamespace(x) at tern/R/g_ipp.R:95:3
   11.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   12.     └─base (local) withOneRestart(expr, restarts[[1L]])
   13.       └─base (local) doWithOneRestart(return(expr), restart)

  Error ('test-individual_patient_plot.R:34:3'): g_ipp default plot works with plotting_choices = all_in_one
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'nestcolor'
  Backtrace:
       ▆
    1. ├─testthat::expect_silent(...) at test-individual_patient_plot.R:34:3
    2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ ├─withr::with_output_sink(...)
    5. │   │ │ └─base::force(code)
    6. │   │ ├─base::withCallingHandlers(...)
    7. │   │ └─base::withVisible(code)
    8. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. ├─tern::g_ipp(...)
   10. │ └─tern::h_g_ipp(...) at tern/R/g_ipp.R:201:5
   11. └─base::loadNamespace(x) at tern/R/g_ipp.R:201:5
   12.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   13.     └─base (local) withOneRestart(expr, restarts[[1L]])
   14.       └─base (local) doWithOneRestart(return(expr), restart)

  Error ('test-individual_patient_plot.R:46:3'): g_ipp default plot works with plotting_choices = split_by_max_obs
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'nestcolor'
  Backtrace:
       ▆
    1. ├─testthat::expect_silent(...) at test-individual_patient_plot.R:46:3
    2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ ├─withr::with_output_sink(...)
    5. │   │ │ └─base::force(code)
    6. │   │ ├─base::withCallingHandlers(...)
    7. │   │ └─base::withVisible(code)
    8. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. ├─tern::g_ipp(...)
   10. │ └─tern::h_g_ipp(...) at tern/R/g_ipp.R:234:7
   11. └─base::loadNamespace(x) at tern/R/g_ipp.R:234:7
   12.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   13.     └─base (local) withOneRestart(expr, restarts[[1L]])
   14.       └─base (local) doWithOneRestart(return(expr), restart)

  Error ('test-individual_patient_plot.R:61:3'): g_ipp default plot works with plotting_choices = separate_by_obs
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'nestcolor'
  Backtrace:
       ▆
    1. ├─testthat::expect_silent(...) at test-individual_patient_plot.R:61:3
    2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ ├─withr::with_output_sink(...)
    5. │   │ │ └─base::force(code)
    6. │   │ ├─base::withCallingHandlers(...)
    7. │   │ └─base::withVisible(code)
    8. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. ├─tern::g_ipp(...)
   10. │ └─base::lapply(...) at tern/R/g_ipp.R:255:5
   11. │   └─tern (local) FUN(X[[i]], ...)
   12. │     └─tern::h_g_ipp(...) at tern/R/g_ipp.R:258:9
   13. └─base::loadNamespace(x) at tern/R/g_ipp.R:258:9
   14.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   15.     └─base (local) withOneRestart(expr, restarts[[1L]])
   16.       └─base (local) doWithOneRestart(return(expr), restart)

  [ FAIL 15 | WARN 0 | SKIP 678 | PASS [1137](https://github.com/insightsengineering/tern/actions/runs/11423183175/job/31782077445#step:8:1141) ]
  ══ Terminated early ════════════════════════════════════════════════════════════
  Error: Test failures