Update the DRomicsInterpreter shiny app: add a 'scaling' checkbox for…

… curvesplot
lbbe-software · Jun 18, 2024 · be69aa2 · be69aa2
1 parent bfa5884
commit be69aa2
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git 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
@@ -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)
                                    )
                             )
                           )