tests/testthat.R

In natverse/hemibrainr: Code for Working with Data from Janelia FlyEM's Hemibrain Project and the flywire data sets``

library(testthat)
library(hemibrainr)

conn=try(neuprint_login())
if(isFALSE(inherits(conn, 'try-error')) && isTRUE(conn$server=="https://neuprint.janelia.org")) {
  Sys.setenv(SKIP_NP_SERVER_TESTS="FALSE")
} else {
  Sys.setenv(SKIP_NP_SERVER_TESTS="TRUE")
}

test_check("hemibrainr")