#521 fix separator for missing packages in checks for tm_g_distributi…

…on and tm_g_scatterplot
insightsengineering · Jun 27, 2023 · 5387684 · 5387684
1 parent cf5e2c3
commit 5387684
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 3 deletions.
diff --git a/R/tm_g_distribution.R b/R/tm_g_distribution.R
@@ -115,7 +115,7 @@ tm_g_distribution <- function(label = "Distribution Module",
   if (length(missing_packages) > 0L) {
     stop(sprintf(
       "Cannot load package(s): %s.\nInstall or restart your session.",
-      paste(missing_packages, sep = ", ")
+      toString(missing_packages)
     ))
   }
 

diff --git a/R/tm_g_scatterplot.R b/R/tm_g_scatterplot.R
@@ -145,8 +145,10 @@ tm_g_scatterplot <- function(label = "Scatterplot",
   extra_packages <- c("ggpmisc", "ggExtra", "colourpicker")
   missing_packages <- Filter(function(x) !requireNamespace(x, quietly = TRUE), extra_packages)
   if (length(missing_packages) > 0L) {
-    stop(sprintf("Cannot load package(s): %s.\nInstall or restart your session.",
-                 paste(missing_packages, sep = ", ")))
+    stop(sprintf(
+      "Cannot load package(s): %s.\nInstall or restart your session.",
+      toString(missing_packages)
+    ))
   }
 
   if (inherits(x, "data_extract_spec")) x <- list(x)