R Under development (unstable) (2024-10-01 r87205 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2024 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> # This file is part of the standard setup for testthat.
> # It is recommended that you do not modify it.
> #
> # Where should you do additional test configuration?
> # Learn more about the roles of various files in:
> # * https://r-pkgs.org/tests.html
> # * https://testthat.r-lib.org/reference/test_package.html#special-files
> 
> library(testthat)
> library(SafeVote)
> 
> test_check("SafeVote")
Detected  29 invalid votes. Number of valid votes is 591 .
Use invalid.votes(...) function to view discarded records.
[ FAIL 6 | WARN 0 | SKIP 0 | PASS 0 ]

══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test-stv-regress.R:3:3'): vote.stv defaults on food_election ────────
Error in `check_screen_device("View()")`: View() should not be used in examples etc
Backtrace:
    ▆
 1. ├─testthat::expect_equal(...) at test-stv-regress.R:3:3
 2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
 3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
 4. └─SafeVote::stv(food_election, backwards.compatible = TRUE)
 5.   └─utils::View(summary(result, digits = digits))
 6.     └─utils:::check_screen_device("View()")
── Error ('test-stv-regress.R:11:3'): vote.stv defaults on ims_election ────────
Error in `check_screen_device("View()")`: View() should not be used in examples etc
Backtrace:
    ▆
 1. ├─testthat::expect_equal(...) at test-stv-regress.R:11:3
 2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
 3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
 4. └─SafeVote::stv(ims_election, backwards.compatible = TRUE)
 5.   └─utils::View(summary(result, digits = digits))
 6.     └─utils:::check_screen_device("View()")
── Error ('test-stv-regress.R:19:3'): vote.stv defaults on dublin_west ─────────
Error in `check_screen_device("View()")`: View() should not be used in examples etc
Backtrace:
    ▆
 1. ├─testthat::expect_equal(...) at test-stv-regress.R:19:3
 2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
 3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
 4. └─SafeVote::stv(dublin_west, backwards.compatible = TRUE)
 5.   └─utils::View(summary(result, digits = digits))
 6.     └─utils:::check_screen_device("View()")
── Error ('test-stv-regress.R:27:3'): vote.stv on dublin_west with three seats ──
Error in `check_screen_device("View()")`: View() should not be used in examples etc
Backtrace:
    ▆
 1. ├─testthat::expect_equal(...) at test-stv-regress.R:27:3
 2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
 3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
 4. └─SafeVote::stv(dublin_west, nseats = 3, backwards.compatible = TRUE)
 5.   └─utils::View(summary(result, digits = digits))
 6.     └─utils:::check_screen_device("View()")
── Error ('test-stv-regress.R:43:3'): vote.stv on food_election with three seats and seed = 1234 ──
Error in `check_screen_device("View()")`: View() should not be used in examples etc
Backtrace:
    ▆
 1. ├─testthat::expect_equal(...) at test-stv-regress.R:43:3
 2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
 3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
 4. └─SafeVote::stv(food_election, nseats = 3, seed = 1234, backwards.compatible = TRUE)
 5.   └─utils::View(summary(result, digits = digits))
 6.     └─utils:::check_screen_device("View()")
── Error ('test-stv-regress.R:61:3'): stv.STV on yale_ballots with seed = 1234 ──
Error in `check_screen_device("View()")`: View() should not be used in examples etc
Backtrace:
    ▆
 1. ├─testthat::expect_equal(...) at test-stv-regress.R:61:3
 2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
 3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
 4. └─SafeVote::stv(yale_ballots, nseats = 4, seed = 1234, quota.hare = TRUE)
 5.   └─utils::View(summary(result, digits = digits))
 6.     └─utils:::check_screen_device("View()")

[ FAIL 6 | WARN 0 | SKIP 0 | PASS 0 ]
Error: Test failures
Execution halted