tests/testthat/test-read.R

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

skip_if(as.logical(Sys.getenv("SKIP_NP_SERVER_TESTS")))

test_that("hemibrain_read_neurons works", {
  kcg2ids=neuprint_ids('KCg')[1:2]
  expect_is(kcg2 <- hemibrain_read_neurons(kcg2ids, remote = FALSE, local = FALSE, clean = FALSE),
            'neuronlist')
  expect_false(any(duplicated(colnames(kcg2))))

  n=kcg2[[1]]
  n.um=scale_neurons(n, scaling = 8/1000)
  expect_equal(n.um$d$W,n$d$W*8/1000)
})