use glue::glue to collapse instead of writeLines, so we can suppress …

…this message in tests
inbo · Oct 2, 2023 · 1b749cd · 1b749cd
1 parent 57146c3
commit 1b749cd
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/R/zzz.R b/R/zzz.R
@@ -462,12 +462,11 @@ convert_to_0.1.6 <- function(package, from = "1.0-rc.1", media = TRUE){
 
   # notify about conversion
   message(
-    writeLines(
-      c(
+    glue::glue(
         "The dataset uses Camtrap DP version 1.0-rc.1, it has been converted to 0.1.6.",
-        "See https://inbo.github.io/camtraptor/#camtrap-dp for details."
+        "See https://inbo.github.io/camtraptor/#camtrap-dp for details.",
+        .seq = "\n"
       )
-    )
   )
   # convert metadata
   package <- convert_metadata_to_0.1.6(package, from)