Overwriting testthat path with two levels up if in package testing mode.

[RobertASmith]

This is a shitty solution, but seems to work.

if (testthat::testing_package() != "") {
      path <- dirname(dirname(getwd()))
    } else{
      path <- getwd()
    }