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

Fix disabling of method sliders

Browse source
This commit is contained in:
Elias Projahn 2021-10-21 16:10:46 +02:00
parent 40cb8e6cbd
commit 33c8292690
1 changed files with 1 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
R/methods.R
View file

@ -79,9 +79,7 @@ methods_server <- function(id, analysis) {
# Observe each method's enable button and synchronise the slider state. # Observe each method's enable button and synchronise the slider state.
lapply(methods, function(method) { lapply(methods, function(method) {
observeEvent(input[[method$id]], { observeEvent(input[[method$id]], {
shinyjs::toggleState( shinyjs::toggleState(sprintf("%s_weight", method$id))
session$ns(sprintf("%s_weight", method$id))
)
}, ignoreInit = TRUE) }, ignoreInit = TRUE)
}) })