refactored the split dataframe by column and evoke formula editor. Th…

…e UI and the server code is now handled in MainApp.R and not in each individual tab

bs/R/DoseResponse.R

@@ -4,13 +4,6 @@ DoseResponseSidebarUI <- function(id) {
     div(
       style = "position: relative;",
       br(),
-      div(
-        class = "boxed-output",
-        uiOutput(NS(id, "open_split_by_group")),
-        uiOutput(NS(id, "data_splitted")),
-        verbatimTextOutput(NS(id, "applied_filter"))
-      ),
-      br(),
       uiOutput(NS(id, "substanceNamesUI")),
       checkboxInput(
         NS(id, "xTransform"),
@@ -90,85 +83,6 @@ DoseResponseServer <- function(id, data, listResults) {
       )
     })
 
-    # Render split by group
-    output[["open_split_by_group"]] <- renderUI({
-      actionButton(NS(id, "open_split_by_group"),
-        "Open the split by group functionality",
-        title = "Open the split by group helper window",
-        disabled = is.null(data$df) || !is.data.frame(data$df) || !is.null(data$backup_df)
-      )
-    })
-
-    observeEvent(input[["open_split_by_group"]], {
-      showModal(modalDialog(
-        title = "SplitByGroup",
-        SplitByGroupUI("SG"),
-        easyClose = TRUE,
-        size = "l",
-        footer = NULL
-      ))
-    })
-
-    # check if data is splitted
-    output$data_splitted <- renderUI({
-      actionButton(NS(id, "remove_filter"),
-        "Remove the filter from the dataset",
-        title = "remove the filter of the dataset",
-        disabled = is.null(data$backup_df) || !is.data.frame(data$backup_df)
-      )
-    })
-
-    observe({
-      output$applied_filter <- renderText(NULL)
-      req(!is.null(data$filter_col))
-      req(!is.null(data$filter_group))
-      output$applied_filter <- renderText({
-        paste(
-          "The dataset is splitted by the variable(s): [",
-          paste(data$filter_col, collapse = ", "),
-          "] group(s) are set to: [",
-          paste(data$filter_group, collapse = ", "),
-          "]"
-        )
-      })
-    })
-
-    # Remove filter
-    observeEvent(input[["remove_filter"]], {
-      data$df <- data$backup_df
-      data$backup_df <- NULL
-      data$filter_col <- NULL
-      data$filter_group <- NULL
-    })
-
-    output$open_formula_editor_corr <- renderUI({
-      actionButton(NS(id, "open_formula_editor"),
-        "Open formula editor",
-        title = "Open the formula editor to create or modify a formula",
-        disabled = is.null(data$df) || !is.data.frame(data$df)
-      )
-    })
-
-    observeEvent(input[["open_formula_editor"]], {
-      showModal(modalDialog(
-        title = "FormulaEditor",
-        FormulaEditorUI("FO"),
-        easyClose = TRUE,
-        size = "l",
-        footer = tagList(
-          modalButton("Close")
-        )
-      ))
-    })
-
-    # display current formula
-    observe({
-      req(!is.null(data$formula))
-      output$formula <- renderText({
-        deparse(data$formula)
-      })
-    })
-
     reset_dr <- function() {
       r_vals$plots <- NULL
       r_vals$names <- NULL