Commit 8d60b7b5 authored by Thomas Schwarzl's avatar Thomas Schwarzl

added mendelian disease associaton

entrez ids and rna type

fixed issue with column headers
parent 822b091a
......@@ -96,6 +96,13 @@ get_descriptive_for_ricbaseid <- function(x, ALLANNO) {
}
get_name_for_ricbaseid <- function(x, ALLANNO) {
data.frame(base = x, stringsAsFactors = F) %>%
left_join(y = ALLANNO, by = c("base" = "RBPBASEID")) %>%
mutate(DescriptiveID = ifelse(is.na(DescriptiveID), base, DescriptiveID)) %>%
pull(DescriptiveID)
}
get_tooltip_for_ricbaseid <- function(x, ALLANNO) {
data.frame(base = x, stringsAsFactors = F) %>%
......@@ -125,7 +132,7 @@ change_col_names_double <- function(x, ALLANNO) {
get_double_header <- function(x, ALLANNO) {
coln <- colnames(x)
desn <- get_descriptive_for_ricbaseid(colnames(x), ALLANNO)
desn <- get_name_for_ricbaseid(colnames(x), ALLANNO)
ifelse(coln == desn, coln, paste0(desn, "\n", coln))
}
......@@ -3,7 +3,7 @@
## Thomas Schwarzl
## schwarzl@embl.de
# ----------- Global
VERSION_ = "0.1.7"
VERSION_ = "0.1.8"
VERSION_TAG_ = "alpha"
## --------- Libraries
......@@ -633,7 +633,7 @@ server <- function(input, output, session) {
coln <- colnames(x)
desn <- get_descriptive_for_ricbaseid(colnames(x), ALLANNO)
desn <- get_name_for_ricbaseid(colnames(x), ALLANNO)
tooltiph <- get_tooltip_for_ricbaseid(colnames(x), ALLANNO)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment