added some necessary assumptions to the modal window of the formual e…

…ditor in order to control it via shinytest2
ComPlat · Nov 18, 2024 · c222c64 · c222c64
1 parent a78557e
commit c222c64
Show file tree

Hide file tree

Showing 2 changed files with 21 additions and 2 deletions.
diff --git a/bs/R/assumption.R b/bs/R/assumption.R
@@ -141,7 +141,9 @@ assServer <- function(id, data, listResults) {
         FormulaEditorUI("FO"),
         easyClose = TRUE,
         size = "l",
-        footer = NULL
+        footer = tagList(
+          modalButton("Close")
+        )
       ))
     })
 
@@ -177,6 +179,9 @@ assServer <- function(id, data, listResults) {
           res <- do.call(rbind, res)
         })
         if (!inherits(e, "try-error")) {
+          exportTestValues(
+            assumption_res  = res
+          )
           listResults$curr_data <- res
           listResults$curr_name <- paste("Test Nr", length(listResults$all_names) + 1, "Conducted shapiro test")
           output$curr_result <- renderTable(res, digits = 6)
@@ -206,6 +211,9 @@ assServer <- function(id, data, listResults) {
         res$`Residuals normal distributed` <- res$p.value > 0.05
       })
       if (!inherits(e, "try-error")) {
+        exportTestValues(
+          assumption_res  = res
+        )
         listResults$curr_data <- res
         listResults$curr_name <- paste("Test Nr", length(listResults$all_names) + 1, "Conducted shapiro test")
         output$curr_result <- renderTable(res, digits = 6)
@@ -235,6 +243,9 @@ assServer <- function(id, data, listResults) {
         err <- conditionMessage(attr(e, "condition"))
         output$ass_error <- renderText(err)
       } else {
+        exportTestValues(
+          assumption_res  = fit
+        )
         listResults$curr_data <- fit
         listResults$curr_name <- paste("Test Nr", length(listResults$all_names) + 1, "variance homogenity (levene)")
         output$curr_result <- renderTable(fit, digits = 6)
@@ -270,6 +281,9 @@ assServer <- function(id, data, listResults) {
         err <- conditionMessage(attr(e, "condition"))
         output$ass_error <- renderText(err)
       } else {
+        exportTestValues(
+          assumption_res  = p
+        )
         listResults$curr_data <- new("plot", p = p, width = 15, height = 15, resolution = 600)
         listResults$curr_name <- paste("Plot Nr", length(listResults$all_names) + 1, "diagnostic plots")
         output$DiagnosticPlotRes <- renderPlot(p)

diff --git a/bs/R/correlation.R b/bs/R/correlation.R
@@ -123,7 +123,9 @@ corrServer <- function(id, data, listResults) {
         FormulaEditorUI("FO"),
         easyClose = TRUE,
         size = "l",
-        footer = NULL
+        footer = tagList(
+          modalButton("Close")
+        )
       ))
     })
 
@@ -159,6 +161,9 @@ corrServer <- function(id, data, listResults) {
             invokeRestart("muffleWarning")
           }
         )
+        exportTestValues(
+          correlation_res = fit
+        )
         listResults$curr_data <- fit
         listResults$curr_name <- paste("Test Nr", length(listResults$all_names) + 1, "Conducted test: ", method)
         output$corr_result <- renderTable(fit, digits = 6)