Commit 3e3e8b66 authored by Thomas Schwarzl's avatar Thomas Schwarzl

added pull commands

parent cb598727
......@@ -2,7 +2,7 @@ filterStudies <- function(RIC_STUDIES, selected_organism) {
RIC_STUDIES %>%
filter(Organism %in% selected_organism) %>%
filter(Integrated & Active) %>%
.[["RBPBASEID"]] %>%
pull(RBPBASEID) %>%
sort %>% unique
}
......@@ -11,13 +11,13 @@ filterStudiesForSupersets <- function(RIC_STUDIES, selected_organism, selected_R
filter(Organism %in% selected_organism) %>%
filter(!RBPBASEID %in% selected_RIC) %>%
filter(Superset) %>%
.[["RBPBASEID"]] %>%
pull(RBPBASEID) %>%
sort %>% unique
}
getAllOrganismsForSuperset <- function(RIC_STUDIES) {
RIC_STUDIES %>% filter(Active & Integrated & Superset) %>% .[["Organism"]] %>% sort %>% unique
RIC_STUDIES %>% filter(Active & Integrated & Superset) %>% pull(Organism) %>% sort %>% unique
}
# Create a list for the selection menu
......@@ -101,7 +101,7 @@ get_tooltip_for_ricbaseid <- function(x, ALLANNO) {
left_join(y = ALLANNO, by = c("base" = "RBPBASEID")) %>%
mutate(tooltip = ifelse(is.na(Reference), Description, Reference)) %>%
mutate(tooltip = ifelse(!is.na(tooltip), tooltip, "")) %>%
.[["tooltip"]]
pull(tooltip)
}
......
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