# Load in pipe
library(magrittr)
t <- tplyr_table(mtcars, gear) %>%
add_layer(name='drat',
group_desc(drat)
) %>%
add_layer(name='cyl',
group_count(cyl)
)
# Return a list of the numeric data frames
get_numeric_data(t)
# Get the data from a specific layer
get_numeric_data(t, layer='drat')
get_numeric_data(t, layer=1)
# Choose multiple layers by name or index
get_numeric_data(t, layer=c('cyl', 'drat'))
get_numeric_data(t, layer=c(2, 1))
# Get the data and filter it
get_numeric_data(t, layer='drat', where = gear==3)
Run the code above in your browser using DataLab