From 204fc144dc36833842eaad931e90f9d66924fab4 Mon Sep 17 00:00:00 2001
From: Gustav Delius <gustav.delius@gmail.com>
Date: Wed, 3 May 2023 13:11:33 +0100
Subject: [PATCH] Slider for m exponent now updates as intended.

---
 R/reproductionControl.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/reproductionControl.R b/R/reproductionControl.R
index 0ca30bc1..5dcc0d3e 100644
--- 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)
     )
 }