Add missing spaces in error message.

charles-plessy · Jun 11, 2024 · c91b465 · c91b465
1 parent f56fb52
commit c91b465
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/GetMethods.R b/R/GetMethods.R
@@ -442,7 +442,7 @@ setMethod( "tagClustersGR", "CAGEexp"
          , function (object, sample, qLow, qUp) {
   tc <- metadata(object)$tagClusters[[sample]]
   if (is.null(tc))
-    stop( "No clusters found, run ", sQuote("distclu"), "or", sQuote("paraclu"), " first." , call. = FALSE)
+    stop( "No clusters found, run ", sQuote("distclu"), " or ", sQuote("paraclu"), " first." , call. = FALSE)
 
   if (! is.null(qLow) & ! is.null(qUp)) {
     qLowName <- paste0("q_", qLow)