fix bug in d3_nest by actually only taking first na child

timelyportfolio · Apr 24, 2017 · 1529aca · 1529aca
1 parent 3e0182d
commit 1529aca
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/hierarchy.R b/R/hierarchy.R
@@ -33,7 +33,7 @@ promote_na_one <- function(x){
     na_child <- x$children[[1]][na_child_loc,]
     x <- dplyr::bind_cols(
       x,
-      na_child[,setdiff(colnames(na_child),c("name","children","colname"))]
+      na_child[1,setdiff(colnames(na_child),c("name","children","colname"))]
     )
 
     # eliminate na child