Fix format_ma_results error

phillipsclynn · phillipsclynn · commit b5b40f0e9276 · 2021-11-15T14:10:43.000-05:00
Call column must not be deleted from ma_results: otherwise the following error message occurs: "Names must be unique. These are duplicated: "b" at locations __ and __, ... beta, and se". This is a temporary fix, as the ma_results output (which only has the parameters used in meta-analysis, not the actual weighted average odds ratios for the models--those are in planks) still does not save to a csv, so this is not a complete fix. This change will allow planks to be saved, though.
diff --git a/R/format_ma_results.R b/R/format_ma_results.R
@@ -42,7 +42,7 @@ format_ma_results <- function(ma_results, ma_ids) {
   }
 
   # Delete the call column
-  ma_results_df <- dplyr::select(ma_results_df, -"call")
+  #ma_results_df <- dplyr::select(ma_results_df, -"call")
 
   # Add a column for the meta-analysis IDs
   ma_results_df <- cbind(ID_meta = ma_ids, ma_results_df)

Original file line number	Diff line number	Diff line change
`@@ -42,7 +42,7 @@ format_ma_results <- function(ma_results, ma_ids) {`
`42`	`42`	`}`
`43`	`43`
`44`	`44`	`# Delete the call column`
`45`		`- ma_results_df <- dplyr::select(ma_results_df, -"call")`
	`45`	`+ #ma_results_df <- dplyr::select(ma_results_df, -"call")`
`46`	`46`
`47`	`47`	`# Add a column for the meta-analysis IDs`
`48`	`48`	`ma_results_df <- cbind(ID_meta = ma_ids, ma_results_df)`