From 15dff6db426c4502841c19b29ce626ccfb98cdd1 Mon Sep 17 00:00:00 2001
From: Sjoberg <SjobergD@mskcc.org>
Date: Wed, 17 Nov 2021 21:27:13 -0500
Subject: [PATCH] Update blueprint-formula-default.R

---
 R/blueprint-formula-default.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/blueprint-formula-default.R b/R/blueprint-formula-default.R
index 9418c6ac..3c5b1f52 100644
--- a/R/blueprint-formula-default.R
+++ b/R/blueprint-formula-default.R
@@ -886,7 +886,7 @@ detect_interactions <- function(.formula) {
   terms_nms <- colnames(terms_matrix)
 
   # All interactions (*, ^, %in%) will be expanded to `:`
-  has_interactions <- grepl(":", terms_nms)
+  has_interactions <- grepl("(?<!:):(?!:)", terms_nms, perl = TRUE)
 
   has_any_interactions <- any(has_interactions)