From be69aa24d8293a0deb464827becaa0f9e2b7d1d4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Aur=C3=A9lie=20Siberchicot?=
 <aurelie.siberchicot@univ-lyon1.fr>
Date: Tue, 18 Jun 2024 16:24:02 +0200
Subject: [PATCH] Update the DRomicsInterpreter shiny app: add a 'scaling'
 checkbox for curvesplot

---
 inst/DRomicsInterpreter-shiny/server.R | 3 ++-
 inst/DRomicsInterpreter-shiny/ui.R     | 3 ++-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/inst/DRomicsInterpreter-shiny/server.R b/inst/DRomicsInterpreter-shiny/server.R
index 4be0d69..6909633 100644
--- a/inst/DRomicsInterpreter-shiny/server.R
+++ b/inst/DRomicsInterpreter-shiny/server.R
@@ -632,6 +632,7 @@ server <- function(input, output, session) {
     doselogtransfoCurvesplot <- eventReactive(input$buttonRunStep4, {input$doselogtransfoCurvesplot})
     colorbyCurvesplot <- eventReactive(input$buttonRunStep4, {input$colorbyCurvesplot})
     addBMDCurvesplot <- eventReactive(input$buttonRunStep4, {input$addBMDCurvesplot})
+    scalingCurvesplot <- eventReactive(input$buttonRunStep4, {input$scalingCurvesplot})
     facetbycolumnsCurvesplot <- eventReactive(input$buttonRunStep4, {input$facetbycolumnsCurvesplot})
     facetbyrowsCurvesplot <- eventReactive(input$buttonRunStep4, {input$facetbyrowsCurvesplot})
     
@@ -662,7 +663,7 @@ server <- function(input, output, session) {
       mycurvesplot <- do.call("curvesplot", list(
         extendedres = myextendedresforCurvesplot$myextendedresforCurvesplot,
         free.y.scales = TRUE,
-        scaling = TRUE,
+        scaling = scalingCurvesplot(),
         xmin = mindoseCurvesplot(),
         xmax = maxDoseXScale(),
         dose_log_transfo = doselogtransfoCurvesplot(),
diff --git a/inst/DRomicsInterpreter-shiny/ui.R b/inst/DRomicsInterpreter-shiny/ui.R
index 48d62bb..eaa147d 100644
--- a/inst/DRomicsInterpreter-shiny/ui.R
+++ b/inst/DRomicsInterpreter-shiny/ui.R
@@ -401,7 +401,8 @@ ui <- fluidPage(
                             column(2,
                                    fixedRow(
                                      checkboxInput("colorbyCurvesplot", label = HTML("<b>Color by trend</b>"), value = TRUE),
-                                     checkboxInput("addBMDCurvesplot", label = HTML("<b>Add BMD-BMR values</b>"), value = TRUE)
+                                     checkboxInput("addBMDCurvesplot", label = HTML("<b>Add BMD-BMR values</b>"), value = TRUE),
+                                     checkboxInput("scalingCurvesplot", label = HTML("<b>Scaling</b>"), value = TRUE)
                                    )
                             )
                           )