Slider for m exponent now updates as intended.

sizespectrum · May 3, 2023 · 204fc14 · 204fc14
1 parent 8279ac0
commit 204fc14
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/reproductionControl.R b/R/reproductionControl.R
@@ -48,8 +48,8 @@ reproductionControlUI <- function(p, input) {
                     min = signif(sp$w_max / 2, 2),
                     max = signif(sp$w_max * 1.5, 2)),
         sliderInput("m", "m", value = sp$m,
-                    min = sp$n,
-                    max = sp$n * 2,
+                    min = sp$m,
+                    max = sp$m * 2,
                     step = 0.01)
     )
 }