Commit 838b4a25 authored by Thomas Schwarzl's avatar Thomas Schwarzl

found proteins are now marked with checkmarks

parent ac7ddd27
Pipeline #17368 passed with stage
in 1 minute and 10 seconds
......@@ -711,6 +711,38 @@ server <- function(input, output, session) {
)
)
TRUE_VALUE_RBPBASE <- "<div class='value found rbpbase'>&#x2714;</div>"
FALSE_VALUE_RBPBASE <- "<div class='value not_found rbpbase'>&#x2716;</div>"
TRUE_VALUE_RBPANNO <- "<div class='value found anno'>&#x2714;</div>"
FALSE_VALUE_RBPANNO <- "<div class='value not_found anno'>&#x2716;</div>"
TRUE_VALUE_ANY <- "<div class='value found any'>&#x2714;</div>"
FALSE_VALUE_ANY <- "<div class='value not_found any'>&#x2716;</div>"
# transform true false into checkmarks
x <- x %>% mutate_at(.vars = vars(starts_with("RBPBASE")),
list(
~if(is.logical(.)) {
ifelse(., TRUE_VALUE_RBPBASE, FALSE_VALUE_RBPBASE)
} else {
.
}
)) %>% mutate_at(.vars = vars(starts_with("RBPANNO")),
list(
~if(is.logical(.)) {
ifelse(., TRUE_VALUE_RBPANNO, FALSE_VALUE_RBPANNO)
} else {
.
}
)) %>% mutate_at(.vars = vars(starts_with("any_")),
list(
~if(is.logical(.)) {
ifelse(., TRUE_VALUE_ANY, FALSE_VALUE_ANY)
} else {
.
}
))
dt <- DT::datatable(x,
#style = "bootstrap",
fillContainer = TRUE,
......@@ -742,22 +774,22 @@ server <- function(input, output, session) {
),
fixedColumns = list(leftColumns = 2,
rightColumns = 0)
)) %>% formatStyle(
logicalColNamesBase,
target = 'cell',
backgroundColor = styleEqual(c(1, 0),
c('#D9534F', 'white'))
) %>% formatStyle(
logicalColNamesAnno,
target = 'cell',
backgroundColor = styleEqual(c(1, 0),
c('#d9984f', 'white'))
) %>% formatStyle(
logicalColNamesAny,
target = 'cell',
backgroundColor = styleEqual(c(1, 0),
c('#9CB9EA', 'white')) ##4F82D9
)
))# %>% formatStyle(
# logicalColNamesBase,
# target = 'cell',
# backgroundColor = styleEqual(c(TRUE_VALUE, FALSE_VALUE),
# c('#D9534F', 'white'))
# ) %>% formatStyle(
# logicalColNamesAnno,
# target = 'cell',
# backgroundColor = styleEqual(c(TRUE_VALUE, FALSE_VALUE),
# c('#d9984f', 'white'))
# ) %>% formatStyle(
# logicalColNamesAny,
# target = 'cell',
# backgroundColor = styleEqual(c(TRUE_VALUE, FALSE_VALUE),
# c('#9CB9EA', 'white')) ##4F82D9
# )
......
......@@ -5,6 +5,34 @@ html {
#RBPTableColumnSelection {
}
.value {
text-align: center;
vertical-align: middle;
}
.not_found {
font-size: 50%;
}
.found {
font-size: 250%;
}
.rbpbase {
color: #D9534F;
}
.anno {
color: #d9984f;
}
.any {
color: #9CB9EA;
}
.note {
color: #666;
font-size: 80%;
......
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