R: use testdepth