context("test_openeddi.R") #Example #setwd(system.file("extdata", "openeddi", package = "egor")) #oe <- read_openeddi()