move function declaration

Author: lorenzwalthert

R/communicate.R

@@ -26,3 +26,10 @@ communicate_summary <- function(changed, ruler_width) {
   cli::cat_bullet(bullet = "cross", "\t", sum(is.na(changed)), "\tStyling threw an error.")
   cli::cat_rule(width = max(40, ruler_width))
 }
+
+stop_insufficient_r_version <- function() {
+  stop(paste0(
+    "Can't write tree with R version ", getRversion(),
+    "since data.tree not available. Needs at least R version 3.2."
+  ), call. = FALSE)
+}

R/testing.R

@@ -212,14 +212,6 @@ copy_to_tempdir <- function(path_perm = testthat_file()) {
   file.path(dir, base)
 }
 
-
-stop_insufficient_r_version <- function() {
-  stop(paste0(
-    "Can't write tree with R version ", getRversion(),
-    "since data.tree not available. Needs at least R version 3.2."
-  ), call. = FALSE)
-}
-
 #' Generate a comprehensive collection test cases for comment / insertion
 #' interaction
 #' Test consist of if / if-else / if-else-if-else cases, paired with various