From eabcae1495d65aa0f6ee7ac4e5fdbac86df296d6 Mon Sep 17 00:00:00 2001 From: Gregory Jefferis Date: Thu, 25 Jul 2024 14:35:58 +0100 Subject: [PATCH] support for (hemi)lineage info --- R/meta.R | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/R/meta.R b/R/meta.R index bbc8cb9..522f9c5 100644 --- a/R/meta.R +++ b/R/meta.R @@ -107,14 +107,16 @@ flywire_meta <- function(ids, type=c("cell_type","hemibrain_type"), ...) { mutate(id=fafbseg::flywire_ids(id, integer64=T)) %>% mutate(side=toupper(substr(side,1,1))) %>% rename_with(~ sub(".+_", "", .x), .cols=any_of(type)) %>% - rename(class=super_class) + rename(class=super_class) %>% + rename(lineage=ito_lee_hemilineage) } hemibrain_meta <- function(ids, ...) { tres=neuprintr::neuprint_get_meta(ids, conn = npconn('hemibrain'), ...) tres <- tres %>% rename(id=bodyid) %>% - mutate(side=stringr::str_match(tres$name, "_([LR])")[,2]) + mutate(side=stringr::str_match(tres$name, "_([LR])")[,2]) %>% + rename(lineage=cellBodyFiber) tres } @@ -138,7 +140,8 @@ malecns_meta <- function(ids, ...) { grepl("DN[A-z0-9_]+,", name) ~ stringr::str_match(name, "(DN[A-z0-9_]+),")[,2], T ~ type )) %>% - rename(id=bodyid) + rename(id=bodyid) %>% + rename(lineage=hemilineage) tres } @@ -149,7 +152,7 @@ manc_meta <- function(ids, ...) { !is.na(rootSide) ~ toupper(substr(rootSide, 1, 1)), T ~ NA_character_ )) %>% - rename(id=bodyid) + rename(id=bodyid, lineage=hemilineage) tres }