rm assert_data.tree_installation()

Author: olivroy

R/communicate.R

@@ -39,10 +39,3 @@ communicate_summary <- function(changed, ruler_width) {
     cli::cat_rule(width = max(40L, ruler_width))
   }
 }
-
-
-assert_data.tree_installation <- function() {
-  if (!is_installed("data.tree")) {
-    abort("The package data.tree needs to be installed for this functionality.")
-  }
-}

R/nested-to-tree.R

@@ -47,7 +47,7 @@ create_tree_from_pd_with_default_style_attributes <- function(pd,
 #' }
 #' @keywords internal
 create_node_from_nested_root <- function(pd_nested, structure_only) {
-  assert_data.tree_installation()
+  check_installed("data.tree")
   name <- if (structure_only) {
     "Hierarchical structure"
   } else {

R/set-assert-args.R

@@ -9,7 +9,7 @@ set_arg_write_tree <- function(write_tree) {
   if (is.na(write_tree)) {
     write_tree <- is_installed("data.tree")
   } else if (write_tree) {
-    assert_data.tree_installation()
+    check_installed("data.tree")
   }
   write_tree
 }