powered by
"peek_front"(x, ...) <- value
empty
peek_front.rpqueue
q <- rpqueue() q <- insert_back(q, data.frame(a = 1, b = 1)) q <- insert_back(q, data.frame(a = 1, b = 1)) peek_front(q)$a <- 100 print(q) peek_front(q) <- data.frame(a = 100, b = 100) print(q)
Run the code above in your browser using DataLab