revdep/library.noindex/baker/new/vroom/bench/taxi/vroom_no_altrep-dplyr.R

In zhenkewu/baker: "Nested Partially Latent Class Models"

({library(vroom); library(dplyr)})
x <- vroom(file, col_types = c(pickup_datetime = "c"), trim_ws = FALSE, quote = "", escape_double = FALSE, na = character(), altrep = FALSE)
print(x)
a <- head(x)
b <- tail(x)
c <- sample_n(x, 100)
d <- filter(x, payment_type == "UNK")
e <- group_by(x, payment_type) %>% summarise(avg_tip = mean(tip_amount))