Fix neuprint_connection_table when 0 connections

* closes #135
natverse · Sep 29, 2020 · 1d41984 · 1d41984
1 parent 0af5b09
commit 1d41984
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/R/connectivity.R b/R/connectivity.R
@@ -270,7 +270,11 @@ neuprint_connection_table <- function(bodyids,
   }
   d <- neuprint_list2df(nc, return_empty_df = TRUE)
   d$weight <- as.integer(d$weight)
-  d$prepost <-  ifelse(prepost=="PRE",0,1)
+  if(nrow(d)==0) {
+    d$prepost=integer(length = 0L)
+  } else {
+    d$prepost <-  ifelse(prepost=="PRE",0,1)
+  }
   if(!is.null(roi)){
     d <- d[d$roi%in%roi,]
   }