Running 'testthat.R' [2s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(fmtr)
  > 
  > test_check("fmtr")
  == Failed tests ================================================================
  -- Error (test-fapply.R:87:4): fapply() function works as expected with flist --
  Error: could not find function "deparse1"
  Backtrace:
      x
   1. \-fmtr::flist(...) test-fapply.R:87:3
  -- Error (test-fcat.R:37:3): as.data.frame.fcat() function works as expected ---
  Error: could not find function "deparse1"
  Backtrace:
      x
   1. +-base::as.data.frame(c1) test-fcat.R:37:2
   2. \-fmtr:::as.data.frame.fcat(c1)
   3.   \-fmtr:::as.data.frame.fmt(x[[nm]], name = nm)
  -- Error (test-fcat.R:63:3): as.fcat.data.frame() function works as expected ---
  Error: could not find function "deparse1"
  Backtrace:
      x
   1. +-base::as.data.frame(c1) test-fcat.R:63:2
   2. \-fmtr:::as.data.frame.fcat(c1)
   3.   \-fmtr:::as.data.frame.fmt(x[[nm]], name = nm)
  -- Error (test-fcat.R:98:3): write.fcat and read.fcat functions work as expected. --
  Error: could not find function "deparse1"
  Backtrace:
      x
   1. +-base::as.data.frame(c2) test-fcat.R:98:2
   2. \-fmtr:::as.data.frame.fcat(c2)
   3.   \-fmtr:::as.data.frame.fmt(x[[nm]], name = nm)
  -- Error (test-fcat.R:146:3): fcat printing works as expected. -----------------
  Error: could not find function "deparse1"
  Backtrace:
       x
    1. +-testthat::expect_output(print(c1, verbose = TRUE)) test-fcat.R:146:2
    2. | \-testthat:::quasi_capture(...)
    3. |   +-testthat:::.capture(...)
    4. |   | \-testthat::capture_output_lines(code, print, width = width)
    5. |   |   \-testthat:::eval_with_output(code, print = print, width = width)
    6. |   |     +-withr::with_output_sink(temp, withVisible(code))
    7. |   |     | \-base::force(code)
    8. |   |     \-base::withVisible(code)
    9. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   10. +-base::print(c1, verbose = TRUE)
   11. +-fmtr:::print.fcat(c1, verbose = TRUE)
   12. | +-base::print(unclass(x))
   13. | \-base::print.default(unclass(x))
   14. +-(function (x, ...) ...
   15. \-fmtr:::print.fmt(x)
   16.   +-base::as.data.frame(x, name = name)
   17.   \-fmtr:::as.data.frame.fmt(x, name = name)
  -- Failure (test-fcat.R:171:3): fcat can be applied to a data frame with formats function. --
  fdat[1, "AGE"] not equal to "25.4".
  'current' is not a factor
  -- Failure (test-fcat.R:172:3): fcat can be applied to a data frame with formats function. --
  fdat[2, "CATEGORY"] not equal to "Label B".
  'current' is not a factor
  -- Failure (test-fcat.R:173:3): fcat can be applied to a data frame with formats function. --
  fdat[1, "AGE"] not equal to "25.4".
  'current' is not a factor
  -- Error (test-fcat.R:243:3): as.fcat.tbl_df works as expected. ----------------
  Error: could not find function "deparse1"
  Backtrace:
      x
   1. +-base::as.data.frame(c1) test-fcat.R:243:2
   2. \-fmtr:::as.data.frame.fcat(c1)
   3.   \-fmtr:::as.data.frame.fmt(x[[nm]], name = nm)
  -- Error (test-fdata.R:92:3): fdata() function works as expected with list of formats. --
  Error: could not find function "deparse1"
  Backtrace:
      x
   1. \-fmtr::flist(...) test-fdata.R:92:2
  -- Failure (test-fdata.R:130:3): fdata() function restores any labels. ---------
  attr(fmt_fb$catc, "label") not equal to "My Labels".
  target is NULL, current is character
  -- Error (test-flist.R:6:3): flist() function works as expected. ---------------
  Error: could not find function "deparse1"
  Backtrace:
      x
   1. \-fmtr::flist(...) test-flist.R:6:2
  -- Error (test-flist.R:29:3): flist works as expected for row type with lookup. --
  Error: could not find function "deparse1"
  Backtrace:
      x
   1. \-fmtr::flist(...) test-flist.R:29:2
  -- Error (test-flist.R:127:3): as.data.frame.flist works as expected. ----------
  Error: could not find function "deparse1"
  Backtrace:
      x
   1. +-base::as.data.frame(fl2) test-flist.R:127:2
   2. \-fmtr:::as.data.frame.fmt_lst(fl2)
   3.   \-base::data.frame(...)
  -- Error (test-flist.R:165:3): as.data.frame.flist works as expected with no names. --
  Error: could not find function "deparse1"
  Backtrace:
      x
   1. +-base::as.data.frame(fl2) test-flist.R:165:2
   2. \-fmtr:::as.data.frame.fmt_lst(fl2)
   3.   \-base::data.frame(...)
  -- Error (test-flist.R:181:3): as.fcat.fmt_lst() works as expected. ------------
  Error: could not find function "deparse1"
  Backtrace:
      x
   1. \-fmtr::flist(...) test-flist.R:181:2
  -- Error (test-fmt.R:157:3): as.data.frame.fmt function works as expected ------
  Error: could not find function "deparse1"
  Backtrace:
      x
   1. +-base::as.data.frame(fmt1) test-fmt.R:157:2
   2. \-fmtr:::as.data.frame.fmt(fmt1)
  -- Error (test-fmt.R:176:3): as.fmt.data.frame function works as expected ------
  Error: argument must be character
  Backtrace:
      x
   1. +-fmtr::as.fmt(dat) test-fmt.R:176:2
   2. \-fmtr:::as.fmt.data.frame(dat)
   3.   \-base::str2lang(x[i, "Expression"])
  -- Error (test-fmt.R:200:3): as.fmt.data.frame function with NA order works as expected --
  Error: argument must be character
  Backtrace:
      x
   1. +-fmtr::as.fmt(dat) test-fmt.R:200:2
   2. \-fmtr:::as.fmt.data.frame(dat)
   3.   \-base::str2lang(x[i, "Expression"])
  -- Error (test-fmt.R:223:3): print.fmt function works as expected --------------
  Error: could not find function "deparse1"
  Backtrace:
       x
    1. +-testthat::expect_output(print(fmt1)) test-fmt.R:223:2
    2. | \-testthat:::quasi_capture(...)
    3. |   +-testthat:::.capture(...)
    4. |   | \-testthat::capture_output_lines(code, print, width = width)
    5. |   |   \-testthat:::eval_with_output(code, print = print, width = width)
    6. |   |     +-withr::with_output_sink(temp, withVisible(code))
    7. |   |     | \-base::force(code)
    8. |   |     \-base::withVisible(code)
    9. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   10. +-base::print(fmt1)
   11. \-fmtr:::print.fmt(fmt1)
   12.   +-base::as.data.frame(x, name = name)
   13.   \-fmtr:::as.data.frame.fmt(x, name = name)
  -- Error (test-fmt.R:238:3): as.fmt.data.frame function works as expected with caps. --
  Error: argument must be character
  Backtrace:
      x
   1. +-fmtr::as.fmt(dat) test-fmt.R:238:2
   2. \-fmtr:::as.fmt.data.frame(dat)
   3.   \-base::str2lang(x[i, "Expression"])
  
  [ FAIL 21 | WARN 0 | SKIP 0 | PASS 81 ]
  Error: Test failures
  Execution halted