Commit 94630161 authored by Thomas Schwarzl's avatar Thomas Schwarzl

fixed At display bug, backend error #5

removed Active, moved to preprocessing
version bump
parent eed93a09
filterStudies <- function(RIC_STUDIES, selected_organism) {
RIC_STUDIES %>%
filter(Organism %in% selected_organism) %>%
filter(Integrated & Active) %>%
filter(Integrated) %>%
pull(RBPBASEID) %>%
sort %>% unique
}
......@@ -17,7 +17,7 @@ filterStudiesForSupersets <- function(RIC_STUDIES, selected_organism, selected_R
getAllOrganismsForSuperset <- function(RIC_STUDIES) {
RIC_STUDIES %>% filter(Active & Integrated & Superset) %>% pull(Organism) %>% sort %>% unique
RIC_STUDIES %>% filter(Integrated & Superset) %>% pull(Organism) %>% sort %>% unique
}
# Create a list for the selection menu
......
......@@ -3,7 +3,7 @@
## Thomas Schwarzl
## schwarzl@embl.de
# ----------- Global
VERSION_ = "0.1.5"
VERSION_ = "0.1.6"
VERSION_TAG_ = "alpha"
## --------- Libraries
......@@ -352,7 +352,7 @@ pageRBPTable <- fluidRow(
selectInput(
"selectedOrganism",
label = "Organism",
choices = ORGANISMS[-2], # TODO At bug
choices = ORGANISMS,
selected = ORGANISMS[1]
#selectize = TRUE
)
......
renderAnnotationsTable <- function(ANNO_STUDIES) {
renderDT({
return(DT::datatable(ANNO_STUDIES %>% filter(Active) %>% dplyr::select(-Active),
return(DT::datatable(ANNO_STUDIES,
rownames = FALSE,
selection = "single",
filter = "top",
......
renderStudiesTable <- function(RIC_STUDIES) {
renderDT({
return(DT::datatable(RIC_STUDIES %>% filter(Active) %>% dplyr::select(-Active, -Integrated),
return(DT::datatable(RIC_STUDIES %>% dplyr::select(-Integrated),
rownames = FALSE,
selection = "single",
filter = "top",
......
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