library(testthat) test_check("dietr")