Running ‘testthat.R’ [23s/26s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(pmdplyr)
  Loading required package: dplyr
  
  Attaching package: 'dplyr'
  
  The following object is masked from 'package:testthat':
  
      matches
  
  The following objects are masked from 'package:stats':
  
      filter, lag
  
  The following objects are masked from 'package:base':
  
      intersect, setdiff, setequal, union
  
  > 
  > test_check("pmdplyr")
  ── 1. Failure: Different inexact joins work (@test-inexact_join.R#177)  ────────
  ...[[]] not equal to list(pibble(b = 1), pibble(b = 1), pibble(b = 2), pibble(b = 2)).
  Component 1: Attributes: < Component ".i": names for target but not for current >
  Component 1: Attributes: < Component ".i": 'is.NA' value mismatch: 1 in current 0 in target >
  Component 1: Attributes: < Component ".t": names for target but not for current >
  Component 1: Attributes: < Component ".t": 'is.NA' value mismatch: 1 in current 0 in target >
  Component 1: Attributes: < Component "class": Lengths (3, 4) differ (string compare on first 3) >
  Component 1: Attributes: < Component "class": 3 string mismatches >
  Component 2: Attributes: < Component ".i": names for target but not for current >
  Component 2: Attributes: < Component ".i": 'is.NA' value mismatch: 1 in current 0 in target >
  Component 2: Attributes: < Component ".t": names for target but not for current >
  ...
  
  ── 2. Failure: Different inexact joins work (@test-inexact_join.R#221)  ────────
  inexact_nest_join(left, right, var = t, jvar = t2, method = "last")[["y"]] not equal to list(pibble(b = 1), pibble(b = 1), pibble(b = 2), pibble(b = 2)).
  Component 1: Attributes: < Component ".i": names for target but not for current >
  Component 1: Attributes: < Component ".i": 'is.NA' value mismatch: 1 in current 0 in target >
  Component 1: Attributes: < Component ".t": names for target but not for current >
  Component 1: Attributes: < Component ".t": 'is.NA' value mismatch: 1 in current 0 in target >
  Component 1: Attributes: < Component "class": Lengths (3, 4) differ (string compare on first 3) >
  Component 1: Attributes: < Component "class": 3 string mismatches >
  Component 2: Attributes: < Component ".i": names for target but not for current >
  Component 2: Attributes: < Component ".i": 'is.NA' value mismatch: 1 in current 0 in target >
  Component 2: Attributes: < Component ".t": names for target but not for current >
  ...
  
  ── 3. Failure: panel_fill works (@test-panel_consistency.R#80)  ────────────────
  panel_fill(df) not equal to `proper_fill`.
  Attributes: < Component ".i": names for current but not for target >
  Attributes: < Component ".i": 'is.NA' value mismatch: 0 in current 1 in target >
  Attributes: < Component ".t": names for current but not for target >
  Attributes: < Component ".t": 'is.NA' value mismatch: 0 in current 1 in target >
  
  ── 4. Failure: panel_fill works (@test-panel_consistency.R#81)  ────────────────
  panel_fill(df %>% as_pibble(.i = NULL, .t = NULL), .i = i, .t = t) not equal to proper_fill %>% as_pibble(.i = NULL, .t = NULL).
  Attributes: < Component ".i": names for target but not for current >
  Attributes: < Component ".i": 'is.NA' value mismatch: 1 in current 0 in target >
  Attributes: < Component ".t": names for target but not for current >
  Attributes: < Component ".t": 'is.NA' value mismatch: 1 in current 0 in target >
  
  ── 5. Failure: panel_fill works (@test-panel_consistency.R#87)  ────────────────
  panel_fill(df, .group_i = FALSE) not equal to `ungroup_fill`.
  Attributes: < Component ".i": names for current but not for target >
  Attributes: < Component ".i": 'is.NA' value mismatch: 0 in current 1 in target >
  Attributes: < Component ".t": names for current but not for target >
  Attributes: < Component ".t": 'is.NA' value mismatch: 0 in current 1 in target >
  
  ── 6. Failure: panel_fill works (@test-panel_consistency.R#102)  ───────────────
  panel_fill(df %>% group_by(x), .backwards = TRUE) not equal to backwards_fill %>% group_by(x).
  Attributes: < Component ".i": names for current but not for target >
  Attributes: < Component ".i": 'is.NA' value mismatch: 0 in current 1 in target >
  Attributes: < Component ".t": names for current but not for target >
  Attributes: < Component ".t": 'is.NA' value mismatch: 0 in current 1 in target >
  
  ── 7. Failure: panel_fill works (@test-panel_consistency.R#106)  ───────────────
  panel_fill(df, .min = 1, .max = 7) not equal to `balance_fill`.
  Attributes: < Component ".i": names for current but not for target >
  Attributes: < Component ".i": 'is.NA' value mismatch: 0 in current 1 in target >
  Attributes: < Component ".t": names for current but not for target >
  Attributes: < Component ".t": 'is.NA' value mismatch: 0 in current 1 in target >
  
  ── 8. Failure: panel_fill works (@test-panel_consistency.R#107)  ───────────────
  panel_fill(df, .min = 1, .max = 7, .set_NA = TRUE) not equal to `balance_fill_na`.
  Attributes: < Component ".i": names for current but not for target >
  Attributes: < Component ".i": 'is.NA' value mismatch: 0 in current 1 in target >
  Attributes: < Component ".t": names for current but not for target >
  Attributes: < Component ".t": 'is.NA' value mismatch: 0 in current 1 in target >
  
  ── 9. Failure: panel_fill works (@test-panel_consistency.R#108)  ───────────────
  panel_fill(df, .min = 1, .max = 7, .set_NA = "x") not equal to `balance_fill_na`.
  Attributes: < Component ".i": names for current but not for target >
  Attributes: < Component ".i": 'is.NA' value mismatch: 0 in current 1 in target >
  Attributes: < Component ".t": names for current but not for target >
  Attributes: < Component ".t": 'is.NA' value mismatch: 0 in current 1 in target >
  
  ── 10. Failure: panel_fill works (@test-panel_consistency.R#109)  ──────────────
  panel_fill(nonpib, .i = i, .t = t, .setpanel = FALSE) not equal to `nonpib_proper_fill`.
  Attributes: < Component "class": Lengths (3, 1) differ (string compare on first 1) >
  Attributes: < Component "class": 1 string mismatch >
  
  ── 11. Failure: fixed_check works (@test-panel_consistency.R#124)  ─────────────
  fixed_check(df, .var = x, .within = i)[["x"]] not equal to `non_fixed`.
  Attributes: < Names: 2 string mismatches >
  Attributes: < Length mismatch: comparison on first 2 components >
  Attributes: < Component 1: Modes: character, numeric >
  Attributes: < Component 1: Lengths: 3, 1 >
  Attributes: < Component 1: target is character, current is numeric >
  Attributes: < Component 2: Modes: numeric, character >
  Attributes: < Component 2: Lengths: 7, 1 >
  Attributes: < Component 2: names for current but not for target >
  Attributes: < Component 2: target is numeric, current is character >
  
  ── 12. Error: fixed_force works  ───────────────────────────────────────────────
  Problem with `mutate()` input `changed`.
  ✖ Input `changed` can't be recycled to size 3.
  ℹ Input `changed` is `<lgl>`.
  ℹ Input `changed` must be size 3 or 1, not 7.
  ℹ The error occured in group 1: i = 1.
  Backtrace:
    1. pmdplyr::fixed_force(df, .var = x, .within = i, .flag = "changed")
   10. dplyr::mutate(., `:=`(!!.flag, !!newflag))
   15. dplyr:::mutate.data.frame(.data, ...)
   16. dplyr:::mutate_cols(.data, ...)
   17. base::tryCatch(...)
   18. base:::tryCatchList(expr, classes, parentenv, handlers)
   19. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   20. value[[3L]](cond)
   21. dplyr:::stop_mutate_recycle_incompatible_size(e, index = i, dots = dots)
   22. dplyr:::stop_dplyr(...)
  
  Error: C stack usage  15938992 is too close to the limit
  Execution halted