tests/testthat/test-primary.neurite.R

In alexanderbates/catnat: Analyse neuronal morphology and connectivity (extends catmaid and nat)

context("primary neurite tracts")

expect_known_output(primary.neurite(nat::Cell07PNs[[1]]), file = 'testdata/pnt1.rds')


# context("googlesheets")
#
# test_that("construct connector URL", {
#   testinput = structure(
#     list(
#       x = c(434086L, 439796L),
#       y = c(235265L, 238586L),
#       z = c(167930L, 153790L),
#       partner_skid = c(39254L, 1316642L)
#     ),
#     .Names = c("x", "y", "z", "partner_skid"),
#     row.names = c(NA,-2L),
#     class = c("tbl_df", "tbl", "data.frame")
#   )
#
#   testouput=c("https://neuropil.janelia.org/tracing/fafb/v14?pid=1&zp=167930&yp=235265&xp=434086&tool=tracingtool&active_skeleton_id=39254&sid0=5&s0=0",
#     "https://neuropil.janelia.org/tracing/fafb/v14?pid=1&zp=153790&yp=238586&xp=439796&tool=tracingtool&active_skeleton_id=1316642&sid0=5&s0=0")
#   expect_equal(connector_URL(testinput), testouput)
#
#   expect_error(apply(testinput, 1, connector_URL))
# })


# context("Assigning LH cell types")
# test_that("Let's assign some neurons or known types",{
#   truelhns = subset(lhns::most.lhns, anatomy.group!="notLHproper")
#   tneurons = truelhns[1:10]
#   aneurons = assign_lh_neuron(tneurons)
#   expect_is(aneurons,"neuronlist")
#   expect_identical(tneurons[,"cell.type"],as.character(aneurons[,"cell.type.1"]))
# })