From a45a54990d757a4548142f3fe414f96ffc60f221 Mon Sep 17 00:00:00 2001
From: Julian Sagebiel <julian.sagebiel@idiv.de>
Date: Tue, 8 Oct 2024 15:13:58 +0200
Subject: [PATCH] added perl=TRUE to subcoef
---
R/subcoef.R | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/R/subcoef.R b/R/subcoef.R
index 083b810..9afdd7a 100644
--- a/R/subcoef.R
+++ b/R/subcoef.R
@@ -29,9 +29,9 @@ subcoef <- function(condition, mname){
methods::slot(mname,ele) <- elements
}
- methods::slot(mname,"coef.names")<-gsub(pattern = condition,replacement = "",x =methods::slot(mname,"coef.names") )
+ methods::slot(mname,"coef.names")<-gsub(pattern = condition,replacement = "",x =methods::slot(mname,"coef.names") ,perl = TRUE )
- methods::slot(mname,"model.name")<-gsub("_","",condition)
+ methods::slot(mname,"model.name")<-gsub("_","",condition, perl = TRUE)
return(mname)
--
GitLab