deploy for 1.0 release

Author: tbrittoborges

.gitignore

@@ -5,5 +5,5 @@
 .DS_Store
 .Renviron
 passwords.txt
-R/other/
+R/other/*.R
 *.RDS

R/write_db_tables.R

@@ -109,7 +109,10 @@ populate_db <- function() {
     select(-starts_with("log2fold_"))
   dte <- dte %>% rename(contrasts = contrast)
 
-  db[["dte"]] <- dte
+  db[["dte"]] <- dte %>%
+    group_by(contrasts) %>%
+    mutate(padj = p.adjust(pvalue, method = "BH")) %>%
+    ungroup()
 
   dge <- readRDS(file.path(base_path, "dge_results.RDS")) %>%
     rename(contrasts = contrast)