tree creator from parse data

Author: lorenzwalthert

R/nested-to-tree.R

@@ -9,10 +9,16 @@
 create_tree <- function(text, structure_only = FALSE) {
   compute_parse_data_nested(text) %>%
     pre_visit(c(default_style_guide_attributes)) %>%
-    create_node_from_nested_root(structure_only) %>%
+    create_tree_from_pd_with_default_style_attributes(structure_only)
+}
+
+create_tree_from_pd_with_default_style_attributes <- function(pd, structure_only = FALSE) {
+  pd %>%
+  create_node_from_nested_root(structure_only) %>%
     as.data.frame()
 }
 
+
 #' Convert a nested tibble into a node tree
 #'
 #' This function is convenient to display all nesting levels of a nested tibble