Running ‘test-all.R’ [32s/43s]
Running the tests in ‘tests/test-all.R’ failed.
Complete output:
  > library(testthat)
  > test_check("diffrprojects")
  Loading required package: diffrprojects
  Loading required package: stringb
  Loading required package: rtext
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test_dp_align.r:147:3): diffrproject alignment_data_set() ────────────
  Error: cannot xtfrm data frames
  Backtrace:
       █
    1. ├─testthat::expect_true(...) test_dp_align.r:147:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─dp$alignment_data_set(...) test_dp_align.r:155:4
    5. │ └─rbind_fill(self$alignment_data[[link]][[x]], add_df) %>% dp_arrange("alignment_i")
    6. └─diffrprojects:::dp_arrange(., "alignment_i")
    7.   ├─df[eval(parse(text = order_call)), ]
    8.   ├─base::`[.data.frame`(df, eval(parse(text = order_call)), )
    9.   ├─base::eval(parse(text = order_call))
   10.   │ └─base::eval(parse(text = order_call))
   11.   └─base::order(df["alignment_i"])
   12.     └─base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   13.       └─base:::FUN(X[[i]], ...)
   14.         ├─base::as.vector(xtfrm(x))
   15.         ├─base::xtfrm(x)
   16.         └─base::xtfrm.data.frame(x)
  ── Error (test_dp_align.r:221:3): diffrproject alignment_data_code() ───────────
  Error: cannot xtfrm data frames
  Backtrace:
       █
    1. ├─testthat::expect_true(...) test_dp_align.r:221:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─dp$alignment_code(...) test_dp_align.r:229:4
    5. │ └─self$alignment_data_set(...)
    6. │   └─rbind_fill(self$alignment_data[[link]][[x]], add_df) %>% dp_arrange("alignment_i")
    7. └─diffrprojects:::dp_arrange(., "alignment_i")
    8.   ├─df[eval(parse(text = order_call)), ]
    9.   ├─base::`[.data.frame`(df, eval(parse(text = order_call)), )
   10.   ├─base::eval(parse(text = order_call))
   11.   │ └─base::eval(parse(text = order_call))
   12.   └─base::order(df["alignment_i"])
   13.     └─base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   14.       └─base:::FUN(X[[i]], ...)
   15.         ├─base::as.vector(xtfrm(x))
   16.         ├─base::xtfrm(x)
   17.         └─base::xtfrm.data.frame(x)
  ── Error (test_dp_export.r:6:3): imported equals exported ──────────────────────
  Error: cannot xtfrm data frames
  Backtrace:
       █
    1. ├─diffrproject$new()$text_add(list("aaa\nbb\ncccc\ndd\nee\nff\ny\n", ... test_dp_export.r:6:2
    2. │ └─self$alignment_data_set(...)
    3. │   └─rbind_fill(self$alignment_data[[link]][[x]], add_df) %>% dp_arrange("alignment_i")
    4. └─diffrprojects:::dp_arrange(., "alignment_i")
    5.   ├─df[eval(parse(text = order_call)), ]
    6.   ├─base::`[.data.frame`(df, eval(parse(text = order_call)), )
    7.   ├─base::eval(parse(text = order_call))
    8.   │ └─base::eval(parse(text = order_call))
    9.   └─base::order(df["alignment_i"])
   10.     └─base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11.       └─base:::FUN(X[[i]], ...)
   12.         ├─base::as.vector(xtfrm(x))
   13.         ├─base::xtfrm(x)
   14.         └─base::xtfrm.data.frame(x)
  ── Error (test_dp_loadsave.r:6:3): loaded equals saved ─────────────────────────
  Error: cannot xtfrm data frames
  Backtrace:
       █
    1. ├─diffrproject$new()$text_add(list("aaa\nbb\ncccc\ndd\nee\nff\ny\n", ... test_dp_loadsave.r:6:2
    2. │ └─self$alignment_data_set(...)
    3. │   └─rbind_fill(self$alignment_data[[link]][[x]], add_df) %>% dp_arrange("alignment_i")
    4. └─diffrprojects:::dp_arrange(., "alignment_i")
    5.   ├─df[eval(parse(text = order_call)), ]
    6.   ├─base::`[.data.frame`(df, eval(parse(text = order_call)), )
    7.   ├─base::eval(parse(text = order_call))
    8.   │ └─base::eval(parse(text = order_call))
    9.   └─base::order(df["alignment_i"])
   10.     └─base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11.       └─base:::FUN(X[[i]], ...)
   12.         ├─base::as.vector(xtfrm(x))
   13.         ├─base::xtfrm(x)
   14.         └─base::xtfrm.data.frame(x)
  ── Failure (test_tools.r:60:3): as.data.frame methods work ─────────────────────
  `{ ... }` threw an error.
  Message: cannot xtfrm data frames
  Class:   simpleError/error/condition
  Backtrace:
       █
    1. ├─testthat::expect_error(...) test_tools.r:60:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─dp$alignment_data_set(...) test_tools.r:69:4
    7. │ └─rbind_fill(self$alignment_data[[link]][[x]], add_df) %>% dp_arrange("alignment_i")
    8. └─diffrprojects:::dp_arrange(., "alignment_i")
    9.   ├─df[eval(parse(text = order_call)), ]
   10.   ├─base::`[.data.frame`(df, eval(parse(text = order_call)), )
   11.   ├─base::eval(parse(text = order_call))
   12.   │ └─base::eval(parse(text = order_call))
   13.   └─base::order(df["alignment_i"])
   14.     └─base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   15.       └─base:::FUN(X[[i]], ...)
   16.         ├─base::as.vector(xtfrm(x))
   17.         ├─base::xtfrm(x)
   18.         └─base::xtfrm.data.frame(x)
  ── Error (test_tools.r:428:3): dp_arrange works ────────────────────────────────
  Error: cannot xtfrm data frames
  Backtrace:
       █
    1. ├─testthat::expect_identical(...) test_tools.r:428:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─diffrprojects:::dp_arrange(data.frame(i = 10:9), i) test_tools.r:429:4
    5.   ├─df[eval(parse(text = order_call)), ]
    6.   ├─base::`[.data.frame`(df, eval(parse(text = order_call)), )
    7.   ├─base::eval(parse(text = order_call))
    8.   │ └─base::eval(parse(text = order_call))
    9.   └─base::order(df["i"])
   10.     └─base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11.       └─base:::FUN(X[[i]], ...)
   12.         ├─base::as.vector(xtfrm(x))
   13.         ├─base::xtfrm(x)
   14.         └─base::xtfrm.data.frame(x)
  
  [ FAIL 6 | WARN 0 | SKIP 0 | PASS 109 ]
  Error: Test failures
  Execution halted