added testthat suggestion