update print status function in single optio

ComPlat · Sep 5, 2024 · 4c60c3b · 4c60c3b
1 parent 800bbee
commit 4c60c3b
Show file tree

Hide file tree

Showing 6 changed files with 5 additions and 4 deletions.
diff --git a/Rplots.pdf b/Rplots.pdf
diff --git a/ToDo.md b/ToDo.md
@@ -4,3 +4,4 @@
 - [x] adapt plotting functions
   * [x] plotly functionality
   * [x] ggplot functionality
+- [ ] fix error 3 datasets; 5 repetitions; --> params plot shows datasets and metrices plot shows repetitions
diff --git a/tsf/R/DBA_Server.R b/tsf/R/DBA_Server.R
@@ -245,7 +245,7 @@ dbaServer <- function(id, df_reactive, df_list_reactive, nclicks) {
       # check status
       print_error(process()$read_error())
       m <- process()$read_output()
-      m <- print_status(m, NULL, NULL, get_Model())
+      m <- print_status(m, get_Model())
       req(is.character(m))
       if(m != "") opti_message(m)
     })

diff --git a/tsf/R/GDA_Server.R b/tsf/R/GDA_Server.R
@@ -251,7 +251,7 @@ gdaServer <- function(id, df_reactive, df_list_reactive, nclicks) {
       # check status
       print_error(process()$read_error())
       m <- process()$read_output()
-      m <- print_status(m, NULL, NULL, get_Model())
+      m <- print_status(m, get_Model())
       req(is.character(m))
       if(m != "") opti_message(m)
     })

diff --git a/tsf/R/HG_Server.R b/tsf/R/HG_Server.R
@@ -244,7 +244,7 @@ hgServer <- function(id, df_reactive, df_list_reactive, nclicks) {
       # check status
       print_error(process()$read_error())
       m <- process()$read_output()
-      m <- print_status(m, NULL, NULL, get_Model())
+      m <- print_status(m, get_Model())
       req(is.character(m))
       if(m != "") opti_message(m)
     })

diff --git a/tsf/R/IDA_Server.R b/tsf/R/IDA_Server.R
@@ -251,7 +251,7 @@ idaServer <- function(id, df_reactive, df_list_reactive, nclicks) {
       # check status
       print_error(process()$read_error())
       m <- process()$read_output()
-      m <- print_status(m, NULL, NULL, get_Model())
+      m <- print_status(m, get_Model())
       req(is.character(m))
       if(m != "") opti_message(m)
     })