don't drop

gravesti · gravesti · commit b65cca4b3c8d · 2025-02-19T12:58:48.000+01:00
diff --git a/R/apply_mcmc.R b/R/apply_mcmc.R
@@ -94,7 +94,7 @@ apply_mcmc <- function(dt, formula_cov, ...) {
     }
 
     keep_columns <- colnames(design_mat)[!grepl("\\(Intercept\\)", colnames(design_mat))]
-    design_mat <- design_mat[, keep_columns]
+    design_mat <- design_mat[, keep_columns, drop = FALSE]
 
     colnames(design_mat) <- paste0("cov", seq_len(ncol(design_mat)))
 

Original file line number	Diff line number	Diff line change
`@@ -94,7 +94,7 @@ apply_mcmc <- function(dt, formula_cov, ...) {`
`94`	`94`	`}`
`95`	`95`
`96`	`96`	`keep_columns <- colnames(design_mat)[!grepl("\\(Intercept\\)", colnames(design_mat))]`
`97`		`- design_mat <- design_mat[, keep_columns]`
	`97`	`+ design_mat <- design_mat[, keep_columns, drop = FALSE]`
`98`	`98`
`99`	`99`	`colnames(design_mat) <- paste0("cov", seq_len(ncol(design_mat)))`
`100`	`100`