Updated for fixing duplicate columns in the output of neuprint_find_n…

…eurons.
natverse · Feb 14, 2020 · 7c2ec67 · 7c2ec67
1 parent 3bf0f9e
commit 7c2ec67
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/connectivity.R b/R/connectivity.R
@@ -472,6 +472,7 @@ extract_connectivity_df <- function(rois, json){
   }
   a <- unlist(jsonlite::fromJSON(json))
   values <-  data.frame(row.names = 1)
+  rois <- unique(rois) #this takes care if both the input and output ROIs are same..
   for(roi in rois){
     d <-  data.frame(0,0)
     colnames(d) <- paste0(roi,c(".pre",".post"))