From e1df7cb0ee3f2f3bbeca12012e5b942ce656c1b9 Mon Sep 17 00:00:00 2001 From: IlyaZar Date: Mon, 19 Feb 2024 15:10:34 +0100 Subject: [PATCH] style: make code easier to read --- R/mod_07_B_logistics_classification_run.R | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/R/mod_07_B_logistics_classification_run.R b/R/mod_07_B_logistics_classification_run.R index c61b9e6..754b18f 100644 --- a/R/mod_07_B_logistics_classification_run.R +++ b/R/mod_07_B_logistics_classification_run.R @@ -59,15 +59,16 @@ mod_logistics_classification_run_server <- function(id, class_logistics_data){ list(true_ones = true_ONES, predictions = predictions) } - ) + ) shiny::observeEvent( { input[["run_logistic_classification"]] }, { - output$plotROC <- plot_roc(list_rp()$true_ones, list_rp()$predictions) - output$rocTEXT <- output_roc_text(list_rp()$true_ones, - list_rp()$predictions) + true_ones <- list_rp()$true_ones + predictions <- list_rp()$predictions + output$plotROC <- plot_roc(true_ones, predictions) + output$rocTEXT <- output_roc_text(true_ones, predictions) output$infoTEXT <- output_info_text() } ) @@ -86,4 +87,4 @@ mod_logistics_classification_run_server <- function(id, class_logistics_data){ ignoreInit = FALSE ) }) -} +} \ No newline at end of file