Running ‘testthat.R’ [3s/4s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(modeltests)
  > 
  > test_check("modeltests")
  ── 1. Error: add_missing = TRUE (@test-augment_data_helper.R#65)  ──────────────
  Subscript `cbind(i, i)` is a matrix, it must be of type logical.
  Backtrace:
   1. modeltests:::augment_data_helper(tbl, add_missing = TRUE)
   2. base::`diag<-`(`*tmp*`, value = NA)
   4. tibble:::`[<-.tbl_df`(`*tmp*`, cbind(i, i), value = NA)
   5. tibble:::tbl_subassign_matrix(x, j, value, j_arg, substitute(value))
   6. tibble:::matrix_to_cells(j, x, j_arg)
  
  ── 2. Failure: add_missing = FALSE, test_newdata = FALSE (@test-check_augment_da
  `check_augment_data_specification(...)` threw an error with unexpected message.
  Expected match: "Augmented data must be the same for tibble and data frame input."
  Actual message: "Assigned data `if (is_tibble(df)) \"pineapple\" else \"strawberry\"` must be compatible with existing data.\nℹ Error occurred for column `Sepal.Length`.\n✖ No common type for `value` <character> and `x` <double>."
  Backtrace:
    1. testthat::expect_error(...)
    6. modeltests:::check_augment_data_specification(...)
    7. modeltests:::aug(model, data = dl$tibble, newdata = new_dl$tibble)
    9. tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = "pineapple")
   10. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   11. tibble:::tbl_subassign_row(xj, i, value, value_arg)
   12. base::tryCatch(...)
   13. base:::tryCatchList(expr, classes, parentenv, handlers)
   14. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   15. value[[3L]](cond)
  
  ── 3. Failure: add_missing = FALSE, test_newdata = FALSE (@test-check_augment_da
  `check_augment_data_specification(...)` threw an error with unexpected message.
  Expected match: "Augmented data must be the same for dataframes with and without rownames."
  Actual message: "Assigned data `if (has_rownames(df)) \"pineapple\" else \"strawberry\"` must be compatible with existing data.\nℹ Error occurred for column `Sepal.Length`.\n✖ No common type for `value` <character> and `x` <double>."
  Backtrace:
    1. testthat::expect_error(...)
    6. modeltests:::check_augment_data_specification(...)
    7. modeltests:::aug(model, data = dl$tibble, newdata = new_dl$tibble)
    9. tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = "strawberry")
   10. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   11. tibble:::tbl_subassign_row(xj, i, value, value_arg)
   12. base::tryCatch(...)
   13. base:::tryCatchList(expr, classes, parentenv, handlers)
   14. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   15. value[[3L]](cond)
  
  ── 4. Failure: add_missing = FALSE, test_newdata = TRUE (@test-check_augment_dat
  `check_augment_data_specification(...)` threw an error with unexpected message.
  Expected match: "Augmented data must be the same for tibble and data frame input."
  Actual message: "Assigned data `if (is_tibble(df)) \"pineapple\" else \"strawberry\"` must be compatible with existing data.\nℹ Error occurred for column `Sepal.Length`.\n✖ No common type for `value` <character> and `x` <double>."
  Backtrace:
    1. testthat::expect_error(...)
    6. modeltests:::check_augment_data_specification(...)
    7. modeltests:::aug(model, data = dl$tibble, newdata = new_dl$tibble)
    9. tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = "pineapple")
   10. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   11. tibble:::tbl_subassign_row(xj, i, value, value_arg)
   12. base::tryCatch(...)
   13. base:::tryCatchList(expr, classes, parentenv, handlers)
   14. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   15. value[[3L]](cond)
  
  ── 5. Failure: add_missing = FALSE, test_newdata = TRUE (@test-check_augment_dat
  `check_augment_data_specification(...)` threw an error with unexpected message.
  Expected match: "Augmented data must be the same for dataframes with and without rownames."
  Actual message: "Assigned data `if (has_rownames(df)) \"pineapple\" else \"strawberry\"` must be compatible with existing data.\nℹ Error occurred for column `Sepal.Length`.\n✖ No common type for `value` <character> and `x` <double>."
  Backtrace:
    1. testthat::expect_error(...)
    6. modeltests:::check_augment_data_specification(...)
    7. modeltests:::aug(model, data = dl$tibble, newdata = new_dl$tibble)
    9. tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = "strawberry")
   10. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   11. tibble:::tbl_subassign_row(xj, i, value, value_arg)
   12. base::tryCatch(...)
   13. base:::tryCatchList(expr, classes, parentenv, handlers)
   14. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   15. value[[3L]](cond)
  
  ── 6. Failure: add_missing = TRUE, test_newdata = TRUE (@test-check_augment_data
  `check_augment_data_specification(...)` threw an error with unexpected message.
  Expected match: "Augmented data must be the same for tibble and data frame input."
  Actual message: "Assigned data `if (is_tibble(df)) \"pineapple\" else \"strawberry\"` must be compatible with existing data.\nℹ Error occurred for column `Sepal.Length`.\n✖ No common type for `value` <character> and `x` <double>."
  Backtrace:
    1. testthat::expect_error(...)
    6. modeltests:::check_augment_data_specification(...)
    7. modeltests:::aug(model, data = dl$tibble, newdata = new_dl$tibble)
    9. tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = "pineapple")
   10. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   11. tibble:::tbl_subassign_row(xj, i, value, value_arg)
   12. base::tryCatch(...)
   13. base:::tryCatchList(expr, classes, parentenv, handlers)
   14. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   15. value[[3L]](cond)
  
  ── 7. Failure: add_missing = TRUE, test_newdata = TRUE (@test-check_augment_data
  `check_augment_data_specification(...)` threw an error with unexpected message.
  Expected match: "Augmented data must be the same for dataframes with and without rownames."
  Actual message: "Assigned data `if (has_rownames(df)) \"pineapple\" else \"strawberry\"` must be compatible with existing data.\nℹ Error occurred for column `Sepal.Length`.\n✖ No common type for `value` <character> and `x` <double>."
  Backtrace:
    1. testthat::expect_error(...)
    6. modeltests:::check_augment_data_specification(...)
    7. modeltests:::aug(model, data = dl$tibble, newdata = new_dl$tibble)
    9. tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = "strawberry")
   10. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   11. tibble:::tbl_subassign_row(xj, i, value, value_arg)
   12. base::tryCatch(...)
   13. base:::tryCatchList(expr, classes, parentenv, handlers)
   14. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   15. value[[3L]](cond)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  [ OK: 257 | SKIPPED: 0 | WARNINGS: 25 | FAILED: 7 ]
  1. Error: add_missing = TRUE (@test-augment_data_helper.R#65) 
  2. Failure: add_missing = FALSE, test_newdata = FALSE (@test-check_augment_data_specification.R#34) 
  3. Failure: add_missing = FALSE, test_newdata = FALSE (@test-check_augment_data_specification.R#45) 
  4. Failure: add_missing = FALSE, test_newdata = TRUE (@test-check_augment_data_specification.R#69) 
  5. Failure: add_missing = FALSE, test_newdata = TRUE (@test-check_augment_data_specification.R#80) 
  6. Failure: add_missing = TRUE, test_newdata = TRUE (@test-check_augment_data_specification.R#104) 
  7. Failure: add_missing = TRUE, test_newdata = TRUE (@test-check_augment_data_specification.R#115) 
  
  Error: testthat unit tests failed
  Execution halted