From c91b4658a85cc5688f0544cc50a484322112a34a Mon Sep 17 00:00:00 2001
From: Charles Plessy <charles-plessy@.oist.jp>
Date: Tue, 11 Jun 2024 11:08:09 +0900
Subject: [PATCH] Add missing spaces in error message.

---
 R/GetMethods.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/GetMethods.R b/R/GetMethods.R
index 54e5020..c00b832 100644
--- 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)