Added test to cakend functions

NCBI-Hackathons · Mar 14, 2018 · 5688146 · 5688146
1 parent e693300
commit 5688146
Show file tree

Hide file tree

Showing 4 changed files with 5 additions and 0 deletions.
diff --git a/.DS_Store b/.DS_Store
diff --git a/ShinyApp/.DS_Store b/ShinyApp/.DS_Store
diff --git a/ShinyApp/data/.DS_Store b/ShinyApp/data/.DS_Store
diff --git a/backend_functions.R b/backend_functions.R
@@ -11,6 +11,11 @@ library(rsconnect)
 #rsconnect::setAccountInfo(name='ncolaian', token='E6B7AB46AE8AC605FE01CD798617DC8A', secret='igdRgmFGAMDyzg5uw43XaAGSeQKb67h2vmI9PDHR')
 rsconnect::deployApp('/Users/ncolaian/Documents/metaboliteassoc/ShinyApp/')
 
+expos_data <- read_exposure_data(filename ='/Users/ncolaian/Documents/metaboliteassoc/ShinyApp/data/mr_data/urine.txt', id_col = "metID", sep = "\t")
+expos_data <- clump_data(expos_data[expos_data$id.exposure == "",], clump_kb = 1000, clump_r2 = 0.8, clump_p1 = 1, clump_p2 = 1)
+disease_outcome <- read_outcome_data(filename = '/Users/ncolaian/Documents/metaboliteassoc/ShinyApp/data/mr_data/cad.txt', snps = expos_data$SNP, sep = "\t")
+harmed_data <- harmonise_data(exposure_dat = expos_data, outcome_dat = disease_outcome, action = 1)
+
 # params = matrix(c(
 #   "tissue", "e", 1, "character",
 #   "metab", "m", 1, "character",