tests/push.R

suppressPackageStartupMessages(library(dequer))

n <- 1e2

dl <- deque()
for (i in 1:n) push(dl, i)

l1 <- lapply(n:1, identity)
l2 <- as.list(dl)

stopifnot(all.equal(l1, l2))

invisible({rm(dl);gc()})

Try the dequer package in your browser

Any scripts or data that you put into this service are public.

dequer documentation built on March 18, 2022, 5:45 p.m.