banc_meta: test for empty strings not NA

* to match change in 4687538
natverse · Oct 22, 2024 · ff5f2fd · ff5f2fd
1 parent acc41aa
commit ff5f2fd
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/R/meta.R b/R/meta.R
@@ -227,10 +227,10 @@ fancorbanc_meta <- function(table, ids=NULL, ...) {
       mutate(class=case_when(
         id %in% cell_infos2.ol$pt_root_id ~ "optic",
         class=='sensory neuron' & grepl('scending', apc) ~ paste('sensory', apc),
-        (is.na(class) | class=='central neuron') & apc=='ascending' ~ 'ascending',
-        (is.na(class) | class=='central neuron') & apc=='descending' ~ 'descending',
-        is.na(apc) & is.na(class) ~ 'unknown',
-        is.na(apc) ~ class,
+        (class=="" | class=='central neuron') & apc=='ascending' ~ 'ascending',
+        (class=="" | class=='central neuron') & apc=='descending' ~ 'descending',
+        apc=="" & class=="" ~ '',
+        apc=="" ~ class,
         T ~ paste(class, apc)
       )) %>%
       mutate(class=sub(" neuron", '', class)) %>%