# NOT RUN {
library(dplyr)
df <- data.frame(x = sample(10, 5, rep = TRUE),
y = sample(10, 5, rep = TRUE)) %>%
define(example="yes",
package="dplyr")
tribe(df)
take(df, names)
take_(df, "class")
take_(df, ~ package)
df <- df %>%
define_(package = ~ NULL,
example = ~ "no")
tribe(df)
df <- df %>%
define_(.dots = list(x =~ 2, y =~ c(3,4)))
tribe(df)
# }
Run the code above in your browser using DataLab