diff --git a/R/class_sequential.R b/R/class_sequential.R index c64f0b05..9cca5d61 100644 --- a/R/class_sequential.R +++ b/R/class_sequential.R @@ -14,8 +14,8 @@ sequential_class <- R6::R6Class( cloneable = FALSE, public = list( dequeue = function() { - head <- self$data[1L] - self$data <- self$data[-1L] + head <- data[1L] + self$data <- data[-1L] head }, prepend = function(names, ranks = NULL) { diff --git a/tests/testthat/test-class_file.R b/tests/testthat/test-class_file.R index 14426b90..c127611d 100644 --- a/tests/testthat/test-class_file.R +++ b/tests/testthat/test-class_file.R @@ -209,7 +209,7 @@ tar_test("file_update_hash() where neither file exists", { expect_false(anyNA(file_time_posixct(file$time))) expect_true(inherits(file_time_posixct(file$time), "POSIXct")) expect_true(is.character(file$size)) - expect_true(grepl("^s", file$size)) + expect_true(grepl("^s", file$size)) expect_true(grepl("b$", file$size)) })