tests/testthat/code/covr.R

In krlmlr/dplyr.benchmark: Run Time Benchmarks for the 'dplyr' Package

{
  {
    try(dplyr:::init_logging("NONE"))
    library(Lahman)
    batting_df <- tbl_df(Batting)
    mean_ <- function(x) .Internal(mean(x))
    min_rank_ <- min_rank
    master_df <- tbl_df(Master[c("playerID", "birthYear")])
    hall_of_fame_df <- tbl_df(HallOfFame[HallOfFame$inducted == "Y", c("playerID", 
      "votedBy", "category")])
  }
  as.character(runif(1e+06))
  batting_df %>% group_by(playerID) %>% summarise(ab = mean(AB))
  batting_df %>% group_by(playerID) %>% summarise(ab = mean_(AB))
  batting_df %>% arrange(playerID, yearID)
  batting_df %>% group_by(playerID) %>% filter(G == max(G))
  batting_df %>% group_by(playerID) %>% mutate(r = rank(desc(AB)))
  batting_df %>% group_by(playerID) %>% mutate(cyear = yearID - min(yearID) + 1)
  batting_df %>% group_by(playerID) %>% mutate(r = min_rank(AB))
  batting_df %>% group_by(playerID) %>% mutate(r = min_rank_(AB))
  left_join(master_df, hall_of_fame_df, by = "playerID")
  inner_join(master_df, hall_of_fame_df, by = "playerID")
  semi_join(master_df, hall_of_fame_df, by = "playerID")
  anti_join(master_df, hall_of_fame_df, by = "playerID")
  bind_rows(batting_df, batting_df)
}