Fix typo

teunbrand · teunbrand · commit 8497cc7a71ca · 2022-07-05T13:42:17.000+02:00
diff --git a/R/matrixplot_compartment.R b/R/matrixplot_compartment.R
@@ -112,7 +112,7 @@ compartment_matrixplot <- function(
   }
   
   if (!all(expnames %in% expnames(CS_discovery))) {
-    stop("Sample names in the `IS_discovery` do not match contacts object(s).",
+    stop("Sample names in the `CS_discovery` do not match contacts object(s).",
          call. = FALSE)
   }
   comp_dat <- as.data.table(CS_discovery$compart_scores)

Original file line number	Diff line number	Diff line change
`@@ -112,7 +112,7 @@ compartment_matrixplot <- function(`
`112`	`112`	`}`
`113`	`113`
`114`	`114`	`if (!all(expnames %in% expnames(CS_discovery))) {`
`115`		- stop("Sample names in the `IS_discovery` do not match contacts object(s).",
	`115`	+ stop("Sample names in the `CS_discovery` do not match contacts object(s).",
`116`	`116`	`call. = FALSE)`
`117`	`117`	`}`
`118`	`118`	`comp_dat <- as.data.table(CS_discovery$compart_scores)`