From 5170c4462a6752047c806fee6f948e83e7290cbf Mon Sep 17 00:00:00 2001 From: David Phillippo Date: Fri, 20 Sep 2024 15:47:25 +0100 Subject: [PATCH 1/2] Handle non-standard variable names --- R/nma.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/nma.R b/R/nma.R index e3bbb935..5c899916 100644 --- a/R/nma.R +++ b/R/nma.R @@ -2951,7 +2951,7 @@ make_nma_model_matrix <- function(nma_formula, # Remove reference level columns if present if (!is.null(x_ref)) { - col_x_ref <- grepl(paste0("\\Q", xvar, x_ref, "\\E"), colnames(X_all), perl = TRUE) + col_x_ref <- grepl(paste0("(`?)\\Q", xvar, "\\E(`?)\\Q", x_ref, "\\E"), colnames(X_all), perl = TRUE) X_all <- X_all[, !col_x_ref, drop = FALSE] } } From cacfd5fb7d8fb02d23020e619f8cfcdbf9e51a9f Mon Sep 17 00:00:00 2001 From: David Phillippo Date: Fri, 20 Sep 2024 17:33:45 +0100 Subject: [PATCH 2/2] Bump dev version --- DESCRIPTION | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/DESCRIPTION b/DESCRIPTION index 2f7848fe..6ba4893c 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,6 +1,6 @@ Package: multinma Title: Bayesian Network Meta-Analysis of Individual and Aggregate Data -Version: 0.7.2.9001 +Version: 0.7.2.9002 Authors@R: person(given = c("David", "M."), family = "Phillippo",