library(testthat) library(egor) library(dplyr) test_check("egor")