Running ‘testthat.R’ [8s/11s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(nanny)
  
  Attaching package: 'nanny'
  
  The following object is masked from 'package:base':
  
      subset
  
  > 
  > test_check("nanny")
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure (test-methods.R:21:3): reduce dimension MDS ─────────────────────────
  ncol(res) not equal to 8.
  1/1 mismatches
  [1] 6 - 8 == -2
  ── Failure (test-methods.R:24:3): reduce dimension MDS ─────────────────────────
  ncol(res) not equal to 8.
  1/1 mismatches
  [1] 6 - 8 == -2
  ── Error (test-methods.R:29:3): rotate dimensions ──────────────────────────────
  Error: Can't subset columns that don't exist.
  ✖ Column `Dim1` doesn't exist.
  Backtrace:
       █
    1. ├─`%>%`(...) test-methods.R:29:2
    2. ├─nanny::rotate_dimensions(...)
    3. ├─nanny::rotate_dimensions(...)
    4. │ └─nanny:::get_rotated_dimensions(...)
    5. │   └─`%>%`(...)
    6. ├─dplyr::pull(., n)
    7. ├─dplyr::ungroup(.)
    8. ├─dplyr::tally(.)
    9. ├─dplyr::group_by_at(...)
   10. │ └─dplyr:::manip_at(...)
   11. │   └─dplyr:::tbl_at_syms(.tbl, .vars, .include_group_vars = .include_group_vars)
   12. │     └─dplyr:::tbl_at_vars(tbl, vars, .include_group_vars = .include_group_vars)
   13. │       └─dplyr::tbl_vars(tbl)
   14. │         ├─dplyr:::new_sel_vars(tbl_vars_dispatch(x), group_vars(x))
   15. │         │ └─base::structure(...)
   16. │         └─dplyr:::tbl_vars_dispatch(x)
   17. ├─dplyr::distinct(.)
   18. ├─dplyr::select(., !!.element, !!dimension_1_column, !!dimension_2_column)
   19. └─dplyr:::select.data.frame(...)
   20.   └─tidyselect::eval_select(expr(c(...)), .data)
   21.     └─tidyselect:::eval_select_impl(...)
   22.       ├─tidyselect:::with_subscript_errors(...)
   23.       │ ├─base::tryCatch(...)
   24.       │ │ └─base:::tryCatchList(expr, classes, parentenv, handlers)
   25.       │ │   └─base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   26.       │ │     └─base:::doTryCatch(return(expr), name, parentenv, handler)
   27.       │ └─tidyselect:::instrument_base_errors(expr)
   28.       │   └─base::withCallingHandlers(...)
   29.       └─tidyselect:::vars_select_eval(...)
   30.         └─tidyselect:::walk_data_tree(expr, data_mask, context_mask)
   31.           └─tidyselect:::eval_c(expr, data_mask, context_mask)
   32.             └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init)
   33.               └─tidyselect:::walk_data_tree(new, data_mask, context_mask)
   34.                 └─tidyselect:::as_indices_sel_impl(...)
   35.                   └─tidyselect:::as_indices_impl(x, vars, strict = strict)
   36.                     └─tidyselect:::chr_as_locations(x, vars)
   37.                       └─vctrs::vec_as_location(x, n = length(vars), names = vars)
   38.                         └─(function () ...
   39.                           └─vctrs:::stop_subscript_oob(...)
   40.                             └─vctrs:::stop_subscript(...)
  
  [ FAIL 3 | WARN 6 | SKIP 0 | PASS 28 ]
  Error: Test failures
  Execution halted