add back p-value

ggPMXdevelopment · Nov 28, 2023 · 089f782 · 089f782
1 parent de414a6
commit 089f782
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/R/pmx-reader.R b/R/pmx-reader.R
@@ -469,7 +469,15 @@ read_mlx_par_est <- function(path, x, ...) {
     v
   }, character(1), USE.NAMES=TRUE)
   names(xx) <- names
-  xx <- xx[,c("PARAM", "VALUE", "SE", "RSE")]
+
+  vals <- intersect(c("PARAM", "VALUE", "SE", "RSE", "PVALUE"), names(xx))
+  ensure <- setdiff(c("PARAM", "VALUE"), vals)
+  if (length(ensure) > 0) {
+    stop("cannot determine the following column name types: '",
+         paste(ensure, collapse="', '"), "'",
+         call.=FALSE)
+  }
+  xx <- xx[,vals]
   xx <- setDT(xx)
   xx
 }