# 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