Add statusLabel to get_meta

* test baseline must be updated * closes #73
natverse · Feb 6, 2020 · 7d719f1 · 7d719f1
1 parent 8afc932
commit 7d719f1
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 1 deletion.
diff --git a/R/name.R b/R/name.R
@@ -46,6 +46,8 @@ neuprint_get_neuron_names <- function(bodyids, dataset = NULL, all_segments = TR
 #'
 #'   \item status (Traced etc)
 #'
+#'   \item statusLabel similar to \code{status} but often a bit more specific
+
 #'   \item size size in voxels
 #'
 #'   \item pre number of presynapses
@@ -74,7 +76,7 @@ neuprint_get_meta <- function(bodyids, dataset = NULL, all_segments = TRUE, conn
     paste(
       "WITH %s AS bodyIds UNWIND bodyIds AS bodyId ",
       "MATCH (n:`%s`) WHERE n.bodyId=bodyId",
-      "RETURN n.bodyId AS bodyid, n.%s AS name, n.type AS type, n.status AS status, n.size AS voxels, n.pre AS pre, n.post AS post, n.cropped AS cropped, exists(n.somaLocation) as soma, n.cellBodyFiber as cellBodyFiber"
+      "RETURN n.bodyId AS bodyid, n.%s AS name, n.type AS type, n.status AS status, n.statusLabel AS statusLabel, n.size AS voxels, n.pre AS pre, n.post AS post, n.cropped AS cropped, exists(n.somaLocation) as soma, n.cellBodyFiber as cellBodyFiber"
     ),
     id2json(bodyids),
     all_segments,

diff --git a/man/neuprint_get_meta.Rd b/man/neuprint_get_meta.Rd
diff --git a/tests/testthat/test-name.R b/tests/testthat/test-name.R
@@ -13,6 +13,7 @@ test_that("test name searches ", {
                  "name",
                  "type",
                  "status",
+                 "statusLabel",
                  "voxels",
                  "pre",
                  "post",
-Original file line number
+Diff line change
@@ Expand Up / @@ -13,6 +13,7 @@ test_that("test name searches ", { @@
                      "name",
                      "type",
                      "status",
+                     "statusLabel",
                      "voxels",
                      "pre",
                      "post",
@@ Expand Down @@