remove terms with | from stanova_samples

singmann · singmann · commit 4e29c92a8211 · 2020-11-22T15:44:08.000+01:00
diff --git a/R/stanova_samples.R b/R/stanova_samples.R
@@ -49,6 +49,8 @@ stanova_samples.stanova <- function(
     # if (length(terms[ !(terms %in% terms2)]) > 0)
     #   warning("Terms ", terms[ !(terms %in% terms2)], " not in model.")
     terms_chr <- terms[ terms %in% terms_chr]
+  } else {
+    terms_chr <- terms_chr[!grepl("\\|", terms_chr)]
   }
   term2 <- strsplit(terms_chr, split = ":")
   names(term2) <- terms_chr

Original file line number	Diff line number	Diff line change
`@@ -49,6 +49,8 @@ stanova_samples.stanova <- function(`
`49`	`49`	`# if (length(terms[ !(terms %in% terms2)]) > 0)`
`50`	`50`	`# warning("Terms ", terms[ !(terms %in% terms2)], " not in model.")`
`51`	`51`	`terms_chr <- terms[ terms %in% terms_chr]`
	`52`	`+ } else {`
	`53`	`+ terms_chr <- terms_chr[!grepl("\\\|", terms_chr)]`
`52`	`54`	`}`
`53`	`55`	`term2 <- strsplit(terms_chr, split = ":")`
`54`	`56`	`names(term2) <- terms_chr`