as.data.frame.rpqueue: Convert an rpqueue to a data.frame

Description Usage Arguments Details Value See Also Examples

View source: R/as.data.frame.rpqueue.R

Description

Converts the elements of an rpqueue into rows of a data.frame, if this is reasonable.

Usage

1
2
## S3 method for class 'rpqueue'
as.data.frame(x, row.names = NULL, optional = FALSE, ...)

Arguments

x

rpqueue to convert.

row.names

passed on to as.data.frame before final conversion.

optional

passed onto as.data.frame before final conversion.

...

passed onto as.data.frame before final conversion.

Details

This function runs in O(N) time in the size of the rpqueue, and will only work if all elements of the queue have the same length() (e.g., same number of columns), and if any of the elements have names, then those names do not conflict (e.g., same column names where used). This is accomplished by a call to do.call("rbind", as.list.rpqueue(x)), where as.list.rpqueue converts the rpqueue to a list where the front element becomes the first element of the list.

Value

a data.frame with the first row the previous front of the queue and last row the previous back.

See Also

as.list.rpqueue for conversion to a list and the generic as.data.frame.

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
q <- rpqueue()
q <- insert_back(q, data.frame(names = c("Bob", "Joe"), ages = c(25, 18)))
q <- insert_back(q, data.frame(names = c("Mary", "Kate", "Ashley"), ages = c(27, 26, 21)))
print(q)

qq <- as.data.frame(q)
print(qq)

## Elements may be similarly-named lists as well, representing individual rows:
q <- rpqueue()
q <- insert_back(q, list(name = "Bob", age = 25))
q <- insert_back(q, list(name = "Mary", age = 24))
print(q)

qq <- as.data.frame(q)
print(qq)

## Building a deque in a loop, converting to a dataframe after the fact:
q <- rpqueue()
for(i in 1:1000) {
 if(runif(1,0,1) < 0.5) {
   q <- insert_back(q, data.frame(i = i, type = "sqrt", val = sqrt(i)))
 } else {
   q <- insert_back(q, data.frame(i = i, type = "log", val = log(i)))
 }
 if(i %% 100 == 0) {
   print(i/1000)
 }
}
print(head(as.data.frame(q)))

rstackdeque documentation built on May 29, 2017, 5:34 p.m.