The test_publish.R code is wrapped in if(0), i.e., it's never run. That's bad in multiple ways, one of which is that it's not even reported as a test that's being skipped even though effectively it is.
Perhaps this really isn't currently fit to run as a test anywhere, but even then it should use skip() so that it's at least reported as a test that is being skipped.