I tried several solutions without any problem.

When I use "testthat" and run the exact same code in Rstudio, it works fine.

I run your code in RStudio and I got 'current' is not a factor'.
Not a kata issue.