From 2499339aa1967b4d3bf3acefca0e16490ce0f9b0 Mon Sep 17 00:00:00 2001
From: John Blischak <jdblischak@gmail.com>
Date: Wed, 24 Mar 2021 12:21:36 -0700
Subject: [PATCH] Include LD reference panel in bulk download.

---
 app.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/app.R b/app.R
index 4128ef9..9c40af3 100644
--- a/app.R
+++ b/app.R
@@ -673,7 +673,7 @@ server <- function(input, output, session) {
       merged_DT <- lapply(1:nrow(dat_paths), function(i){
         ROW <- dat_paths[i,]
         dat <- data.table::fread(ROW$file_path, nThread = 1)
-        dat <- cbind(study=ROW$study, ROW$study_type, dat)
+        dat <- cbind(study=ROW$study, study_type=ROW$study_type, LD_ref=ROW$LD_ref, dat)
         incProgress(1/nrow(dat_paths), detail = paste(round(i/nrow(dat_paths),2)*100,"%"))
         return(dat)
       }) %>% data.table::rbindlist(fill = T)