Running 'test-all.R' [46s/45s]
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:
       x
    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:
       x
    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:
       x
    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:
       x
    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:
       x
    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:
       x
    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