Unify output formats regardless of having meaningful outputs

cumc · Oct 24, 2023 · 265fc31 · 265fc31
1 parent 799f98a
commit 265fc31
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/code/misc/xqtl_utils.R b/code/misc/xqtl_utils.R
@@ -301,7 +301,8 @@ post_process_susie <- function(fobj, fdat, r, signal_cutoff = 0.7) {
         names(fobj$pip) = NULL
         class(fobj) = "list"
     } else {
-        fobj = load_script()
+        fobj = list(analysis_script = load_script(), pip = fobj$pip, variant_names = gsub("_",":",names(fobj$pip)))
+        names(fobj$pip) = NULL
     }
     return(fobj)
 }