library(testthat) library(r4subdata) test_check("r4subdata")