tests/testthat.R

In natverse/neuprintr: R Client Utilities for Interacting with the neuPrint Connectome Analysis Service

library(testthat)
library(neuprintr)

conn=try(neuprint_login())
if(!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("neuprintr")