diff --git a/R/class_queue.R b/R/class_queue.R index 810e384f..4dad8e9a 100644 --- a/R/class_queue.R +++ b/R/class_queue.R @@ -37,8 +37,6 @@ queue_class <- R6::R6Class( }, append = function(names, ranks = NULL) { }, - append0 = function(name) { - }, increment_ranks = function(names, by) { }, should_dequeue = function() { diff --git a/R/class_sequential.R b/R/class_sequential.R index a4c0d2b3..c64f0b05 100644 --- a/R/class_sequential.R +++ b/R/class_sequential.R @@ -24,9 +24,6 @@ sequential_class <- R6::R6Class( append = function(names, ranks = NULL) { self$data <- c(self$data, names) }, - append0 = function(name) { - self$data[length(self$data) + 1L] <- name - }, should_dequeue = function() { self$is_nonempty() }, diff --git a/tests/testthat/test-class_parallel.R b/tests/testthat/test-class_parallel.R index edb44352..2d208d91 100644 --- a/tests/testthat/test-class_parallel.R +++ b/tests/testthat/test-class_parallel.R @@ -214,31 +214,6 @@ tar_test("parallel$append() default ranks", { ) }) -tar_test("parallel$append0() something on an empty queue", { - q <- parallel_init() - q$append0(name = "a") - out <- q$data - exp <- 0L - names(exp) <- "a" - expect_identical(out, exp) - expect_equal(q$counter$count, 1L) - expect_equal(counter_get_names(q$counter), "a") -}) - -tar_test("parallel$append0() something on a nonempty queue", { - q <- parallel_init(names = c("x", "y"), ranks = c(2L, 3L)) - q$append0(name = "a") - out <- q$data - exp <- c(2L, 3L, 0L) - names(exp) <- c("x", "y", "a") - expect_identical(out, exp) - expect_equal(q$counter$count, 3L) - expect_equal( - sort(counter_get_names(q$counter)), - sort(c("a", "x", "y")) - ) -}) - tar_test("parallel$increment_ranks() elementwise", { q <- parallel_init(names = c("x", "y", "z"), ranks = seq_len(3L)) q$increment_ranks(names = c("y", "z"), by = c(-2L, 2L)) diff --git a/tests/testthat/test-class_sequential.R b/tests/testthat/test-class_sequential.R index 38440a30..9e7153ef 100644 --- a/tests/testthat/test-class_sequential.R +++ b/tests/testthat/test-class_sequential.R @@ -17,12 +17,6 @@ tar_test("sequential$append()", { expect_equal(q$data, c("a", "b", "c", "d")) }) -tar_test("sequential$append0()", { - q <- sequential_init(c("a", "b")) - q$append0(name = "c") - expect_equal(q$data, c("a", "b", "c")) -}) - tar_test("sequential$increment_ranks()", { q <- sequential_init(c("a", "b")) q$increment_ranks("a", 1L)