Running 'spelling.R'
  Running 'testthat.R'
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > 
  > if (requireNamespace('testthat', quietly = TRUE)) {
  +   library(testthat)
  +   library(GGally)
  + 
  +   test_check("GGally")
  + }
  Loading required package: ggplot2
  Registered S3 method overwritten by 'GGally':
    method from   
    +.gg   ggplot2
  # weights:  24 (14 variable)
  initial  value 50552.644463 
  iter  10 value 45030.930814
  iter  20 value 43102.145726
  final  value 43101.422966 
  converged
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • !rq(intergraph) is TRUE (1)
  • On CRAN (3)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test-ggtable.R:25:3): example ────────────────────────────────────────
  Error: please install the package 'Hmisc'.  install.packages('Hmisc') 
  Backtrace:
       █
    1. └─GGally:::expect_print(...) test-ggtable.R:25:2
    2.   ├─testthat::expect_silent(print(x)) test-ggtable.R:7:4
    3.   │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
    4.   │   ├─testthat:::.capture(...)
    5.   │   │ ├─withr::with_output_sink(...)
    6.   │   │ │ └─base::force(code)
    7.   │   │ ├─base::withCallingHandlers(...)
    8.   │   │ └─base::withVisible(code)
    9.   │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   10.   ├─base::print(x)
   11.   └─GGally:::print.ggmatrix(x)
   12.     └─GGally::ggmatrix_gtable(x, ...)
   13.       ├─pm[i, j]
   14.       └─GGally:::`[.ggmatrix`(pm, i, j)
   15.         └─GGally::getPlot(pm, i, j)
   16.           └─GGally:::fn(pm$data, plotObj$mapping)
   17.             ├─base::do.call(original_fn, allParams)
   18.             └─(function (data, mapping, text_fn = weighted_median_iqr, text_fn_vertical = NULL, ...
   19.               └─plyr::ddply(...)
   20.                 └─plyr::ldply(...)
   21.                   └─plyr::llply(...)
   22.                     ├─plyr:::loop_apply(n, do.ply)
   23.                     └─(function (i) ...
   24.                       └─GGally:::.fun(piece, ...)
   25.                         └─(function (.data, ...) ...
   26.                           └─base::eval(cols[[col]], .data, parent.frame())
   27.                             └─base::eval(cols[[col]], .data, parent.frame())
   28.                               └─GGally:::text_fn(x, weight)
   29.                                 └─GGally:::require_namespaces("Hmisc")
  
  [ FAIL 1 | WARN 2 | SKIP 4 | PASS 570 ]
  Error: Test failures
  Execution halted