johrpan/geposanui
1
0
Fork 0
mirror of https://github.com/johrpan/geposanui.git synced 2025-10-26 11:17:24 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

methods: Allow negative weights

Browse source
This commit is contained in:
Elias Projahn 2021-11-16 15:20:42 +01:00
parent c009bfa371
commit d654edb8a3
1 changed files with 5 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

13
R/methods.R
View file

@ -1,7 +1,5 @@
# Construct UI for the methods editor.
methods_ui <- function(id) {
initial_weight <- 100 / length(methods)
verticalLayout(
h3("Methods"),
div(style = "margin-top: 16px"),
@ -18,11 +16,10 @@ methods_ui <- function(id) {
sliderInput(
NS(id, sprintf("%s_weight", method$id)),
NULL,
post = "%",
min = 0,
max = 100,
step = 1,
value = initial_weight
min = -1.0,
max = 1.0,
step = 0.01,
value = 1.0
)
)
}),
@ -75,7 +72,7 @@ methods_server <- function(id, analysis, min_n_species) {
updateSliderInput(
session,
sprintf("%s_weight", method_id),
value = weights[[method_id]] * 100
value = weights[[method_id]]
)
}
})