Running 'testthat.R' [17s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(janitor)
  
  Attaching package: 'janitor'
  
  The following objects are masked from 'package:stats':
  
      chisq.test, fisher.test
  
  > 
  > test_check("janitor")
  -- 1. Failure: totals col is correct (@test-add-totals.R#33)  ------------------
  untabyl(adorn_totals(ct, "col")) not equal to data.frame(...).
  Component "a": Modes: character, numeric
  Component "a": Attributes: < target is NULL, current is list >
  Component "a": target is character, current is factor
  
  -- 2. Error: grouped_df gets ungrouped and succeeds (@test-add-totals.R#122)  --
  Assigned data `name` must be compatible with existing data.
  i Error occurred for column `cyl`.
  x No common type for `value` <character> and `x` <double>.
  Backtrace:
    1. testthat::expect_equal(...)
   10. janitor::adorn_totals(.)
   14. tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = "Total")
   15. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   16. tibble:::tbl_subassign_row(xj, i, value, value_arg)
   17. base::tryCatch(...)
   18. base:::tryCatchList(expr, classes, parentenv, handlers)
   19. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   20. value[[3L]](cond)
  
  -- 3. Error: na.rm value works correctly (@test-add-totals.R#129)  -------------
  Assigned data `name` must be compatible with existing data.
  i Error occurred for column `x`.
  x No common type for `value` <character> and `x` <double>.
  Backtrace:
    1. testthat::expect_equal(...)
    9. janitor::adorn_totals(., c("row", "col"), na.rm = FALSE)
   13. tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = "Total")
   14. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   15. tibble:::tbl_subassign_row(xj, i, value, value_arg)
   16. base::tryCatch(...)
   17. base:::tryCatchList(expr, classes, parentenv, handlers)
   18. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   19. value[[3L]](cond)
  
  -- 4. Error: add_totals respects if input was data.frame (@test-add-totals.R#141
  Assigned data `name` must be compatible with existing data.
  i Error occurred for column `x`.
  x No common type for `value` <character> and `x` <double>.
  Backtrace:
    1. testthat::expect_equal(...)
    9. janitor::adorn_totals(.)
   13. tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = "Total")
   14. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   15. tibble:::tbl_subassign_row(xj, i, value, value_arg)
   16. base::tryCatch(...)
   17. base:::tryCatchList(expr, classes, parentenv, handlers)
   18. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   19. value[[3L]](cond)
  
  -- 5. Error: add_totals respects if input was data_frame (@test-add-totals.R#148
  Assigned data `name` must be compatible with existing data.
  i Error occurred for column `x`.
  x No common type for `value` <character> and `x` <double>.
  Backtrace:
    1. testthat::expect_equal(...)
    2. tibble::as_tibble(.)
    9. janitor::adorn_totals(.)
   13. tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = "Total")
   14. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   15. tibble:::tbl_subassign_row(xj, i, value, value_arg)
   16. base::tryCatch(...)
   17. base:::tryCatchList(expr, classes, parentenv, handlers)
   18. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   19. value[[3L]](cond)
  
  -- 6. Error: works with non-numeric columns mixed in; fill character specificati
  Assigned data `name` must be compatible with existing data.
  i Error occurred for column `a`.
  x No common type for `value` <character> and `x` <integer>.
  Backtrace:
    1. testthat::expect_equal(...)
    9. janitor::adorn_totals(., where = c("row", "col"), fill = "*")
   13. tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = "Total")
   14. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   15. tibble:::tbl_subassign_row(xj, i, value, value_arg)
   16. base::tryCatch(...)
   17. base:::tryCatchList(expr, classes, parentenv, handlers)
   18. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   19. value[[3L]](cond)
  
  -- 7. Error: automatically invokes purrr::map when called on a 3-way tabyl (@tes
  Assigned data `name` must be compatible with existing data.
  i Error occurred for column `cyl`.
  x No common type for `value` <character> and `x` <double>.
  Backtrace:
    1. testthat::expect_equal(...)
    4. janitor::adorn_totals(three)
    5. purrr::map(dat, adorn_totals, where, fill, na.rm)
    6. janitor:::.f(.x[[i]], ...)
    8. tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = "Total")
    9. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   10. tibble:::tbl_subassign_row(xj, i, value, value_arg)
   11. base::tryCatch(...)
   12. base:::tryCatchList(expr, classes, parentenv, handlers)
   13. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   14. value[[3L]](cond)
  
  -- 8. Error: deprecated functions adorn_totals_col and adorn_totals_row function
  Assigned data `name` must be compatible with existing data.
  i Error occurred for column `mpg`.
  x No common type for `value` <character> and `x` <double>.
  Backtrace:
    1. testthat::expect_equal(...)
   10. janitor::adorn_totals(.)
   14. tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = "Total")
   15. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   16. tibble:::tbl_subassign_row(xj, i, value, value_arg)
   17. base::tryCatch(...)
   18. base:::tryCatchList(expr, classes, parentenv, handlers)
   19. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   20. value[[3L]](cond)
  
  -- 9. Error: (unknown) (@test-adorn-percentages.R#44)  -------------------------
  Assigned data `name` must be compatible with existing data.
  i Error occurred for column `cyl`.
  x No common type for `value` <character> and `x` <double>.
  Backtrace:
    9. janitor::adorn_totals(., c("row", "col"))
   11. tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = "Total")
   12. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   13. tibble:::tbl_subassign_row(xj, i, value, value_arg)
   14. base::tryCatch(...)
   15. base:::tryCatchList(expr, classes, parentenv, handlers)
   16. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   17. value[[3L]](cond)
  
  -- 10. Error: non-tabyls are treated correctly (@test-adorn-title.R#49)  -------
  Assigned data `names(top)` must be compatible with row subscript `1`.
  x 1 row must be assigned.
  x Assigned data has 4 rows.
  i Only vectors of size 1 are recycled.
  Backtrace:
    1. testthat::expect_equal(...)
    9. janitor::adorn_title(., col_name = "col")
   13. tibble:::`[<-.tbl_df`(...)
   14. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   15. tibble:::vectbl_recycle_rhs(...)
   16. base::tryCatch(...)
   17. base:::tryCatchList(expr, classes, parentenv, handlers)
   18. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   19. value[[3L]](cond)
  
  -- 11. Error: works with non-count inputs (@test-adorn-title.R#102)  -----------
  Assigned data `names(top)` must be compatible with row subscript `1`.
  x 1 row must be assigned.
  x Assigned data has 3 rows.
  i Only vectors of size 1 are recycled.
  Backtrace:
    1. testthat::expect_equal(...)
    4. janitor::adorn_title(source2_tibble, col_name = "Characteristics")
    6. tibble:::`[<-.tbl_df`(...)
    7. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
    8. tibble:::vectbl_recycle_rhs(...)
    9. base::tryCatch(...)
   10. base:::tryCatchList(expr, classes, parentenv, handlers)
   11. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   12. value[[3L]](cond)
  
  -- 12. Error: for printing purposes: tabyl class stays tabyl, data.frame stays d
  Assigned data `names(top)` must be compatible with row subscript `1`.
  x 1 row must be assigned.
  x Assigned data has 3 rows.
  i Only vectors of size 1 are recycled.
  Backtrace:
    1. testthat::expect_equal(...)
   10. janitor::adorn_title(., "top", "Cylinders", "Automatic?")
   14. tibble:::`[<-.tbl_df`(...)
   15. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   16. tibble:::vectbl_recycle_rhs(...)
   17. base::tryCatch(...)
   18. base:::tryCatchList(expr, classes, parentenv, handlers)
   19. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   20. value[[3L]](cond)
  
  -- 13. Failure: values are converted to NAs at the data.frame level (@test-clean
  cleaned_df[[2]] not equal to factor(c(NA, NA, "b"), levels = c("a", "b")).
  Types not compatible: character is not integer
  
  Reading layer `nc' from data source `D:\temp\Rtmp0WBy4p\RLIBS_20d6046e0dde\sf\shape\nc.shp' using driver `ESRI Shapefile'
  Simple feature collection with 100 features and 14 fields
  geometry type:  MULTIPOLYGON
  dimension:      XY
  bbox:           xmin: -84.32385 ymin: 33.88199 xmax: -75.45698 ymax: 36.58965
  CRS:            4267
  -- 14. Failure: show_missing_levels parameter works (@test-tabyl.R#216)  -------
  z %>% tabyl(a, b, new, show_missing_levels = TRUE) not equal to list(...).
  Component "lvl1": Attributes: < Component "core": Component "a": 'current' is not a factor >
  Component "lvl1": Component "a": 'current' is not a factor
  
  -- 15. Error: NA levels get moved to the last column in the data.frame, are supp
  Assigned data `"NA_"` must be compatible with existing data.
  i Error occurred for column `a`.
  x No common type for `value` <character> and `x` <double>.
  Backtrace:
    9. janitor::tabyl(., c, a, b, show_missing_levels = FALSE)
   11. janitor:::tabyl_3way(...)
    3. base::split(dat, dat[[rlang::quo_name(var3)]])
   10. purrr::map(., tabyl_2way, var1, var2, show_na = show_na, show_missing_levels = show_missing_levels)
   20. janitor:::.f(.x[[i]], ...)
   22. tibble:::`[<-.tbl_df`(`*tmp*`, is.na(tabl[2]), value = "NA_")
   23. tibble:::tbl_subassign_matrix(x, j, value, j_arg, substitute(value))
   24. base::tryCatch(...)
   25. base:::tryCatchList(expr, classes, parentenv, handlers)
   26. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   27. value[[3L]](cond)
  
  == testthat results  ===========================================================
  [ OK: 516 | SKIPPED: 0 | WARNINGS: 0 | FAILED: 15 ]
  1. Failure: totals col is correct (@test-add-totals.R#33) 
  2. Error: grouped_df gets ungrouped and succeeds (@test-add-totals.R#122) 
  3. Error: na.rm value works correctly (@test-add-totals.R#129) 
  4. Error: add_totals respects if input was data.frame (@test-add-totals.R#141) 
  5. Error: add_totals respects if input was data_frame (@test-add-totals.R#148) 
  6. Error: works with non-numeric columns mixed in; fill character specification (@test-add-totals.R#192) 
  7. Error: automatically invokes purrr::map when called on a 3-way tabyl (@test-add-totals.R#251) 
  8. Error: deprecated functions adorn_totals_col and adorn_totals_row function as expected (@test-add-totals.R#283) 
  9. Error: (unknown) (@test-adorn-percentages.R#44) 
  1. ...
  
  Error: testthat unit tests failed
  Execution halted