# NOT RUN {
test_df <- data.table(
x = 1:3,
y = 1:3
)
# Grab column by name
test_df %>%
pull.(y)
# Grab column by position
test_df %>%
pull.(1)
# Defaults to last column
test_df %>%
pull.()
# }
Run the code above in your browser using DataLab