Nothing
expect_equal(
mtcars %>% nest_by(am),
{
res <- data.frame(am = c(0L, 1L))
res[["data"]] <- list(mtcars[mtcars$am == 0, -9], mtcars[mtcars$am == 1, -9])
res %>% group_by(am)
},
info = "nest_by() takes group names"
)
expect_equal(
mtcars %>% group_by(am) %>% nest_by(),
{
res <- data.frame(am = c(0L, 1L))
res[["data"]] <- list(mtcars[mtcars$am == 0, -9], mtcars[mtcars$am == 1, -9])
res %>% group_by(am)
},
info = "nest_by() works on grouped data sets"
)
expect_error(
mtcars %>% nest_by(am, .keep = "true"),
info = "`.keep` should be `logical(1)`"
)
expect_error(
mtcars %>% nest_by(am, .key = TRUE),
info = "`.key` should be `character(1)`"
)
expect_error(
mtcars %>% group_by(am) %>% nest_by(cyl),
info = "Can't re-group while nesting. Either `ungroup()` first or don't supply arguments to `nest_by()`"
)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.