diff --git a/shiny_run/scripts/build_db.R b/shiny_run/scripts/build_db.R index d837d97..9b37e17 100755 --- a/shiny_run/scripts/build_db.R +++ b/shiny_run/scripts/build_db.R @@ -42,6 +42,9 @@ build_db <- function(gmt.list, db.name){ dplyr::left_join(df.pfocr, by=c("term"),relationship = "many-to-many") %>% dplyr::mutate(term = figid) %>% dplyr::select(term, name, gene) + } else { #duplicate term to make name column + g.df <- g.df %>% + mutate(name = term) } assign(g.name, g.df)