Proper fs::dir_tree() emulation

 - for #43

R/taxonTree.R

@@ -8,7 +8,7 @@
 #' @param level One or more of: `"order"`, `"suborder"`, `"greatgroup"`, `"subgroup"`. The lowest level is passed to `getChildLevel()` to generate the leaf nodes.
 #' @param root Label for root node. Default: `"Soil Taxonomy"`; `NULL` for "unrooted" tree.
 #' @param verbose Print tree output? Default: `TRUE`
-#' @param special.chars Characters used to print the tree to console. Default: `c("|", "|", "--")`. For fancy markup try: `c("\u251c", "\u2514", "\u2500 ")`
+#' @param special.chars Characters used to print the tree to console. Default: `c("|--", "|", "|", "-")`. For fancy markup try: `c("\u251c", "\u2514", "\u2500 ")`
 #' @param file Optional: path to output file. Default: `""` prints to standard output connection (unless redirected by `sink()`)
 #' @param ... Additional arguments to `data.tree::as.Node.data.frame()`
 #'
@@ -27,7 +27,7 @@ taxonTree <- function(taxon,
                       level = c("order", "suborder", "greatgroup", "subgroup"),
                       root = "Soil Taxonomy",
                       verbose = TRUE,
-                      special.chars = c("|", "|", "--"),
+                      special.chars = c("|--", "|", "|", "-"),
                       file = "",
                       ...) {
   if (!requireNamespace("data.tree")) {
@@ -72,14 +72,14 @@ print.SoilTaxonNode <- function(x,
   res <- as.data.frame(x, ...)
 
   # replace unicode markup
-  special.chars.default <- c("\u00a6", "\u00b0", "--")
+  special.chars.default <- c("\u00a6-", "\u00a6", "\u00b0", "-+")
   if (is.null(special.chars) || length(special.chars) == 0) {
     special.chars <- "|"
   }
 
-  special.chars <- rep(special.chars, 3)[1:3]
-  for (i in 1:3) {
-    res$levelName <- gsub(special.chars.default[i], special.chars[i], res$levelName, fixed = TRUE)
+  special.chars <- rep(special.chars, 4)[1:4]
+  for (i in 1:4) {
+    res$levelName <- gsub(special.chars.default[i], special.chars[i], res$levelName)
   }
 
   cat(res$levelName, sep = "\n", file = file)