-
Notifications
You must be signed in to change notification settings - Fork 0
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
added the split by group to correlation tab
- Loading branch information
1 parent
fa15755
commit 9e24a9d
Showing
6 changed files
with
284 additions
and
39 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,142 @@ | ||
| # TODO: by group --> open popup --> choose column(e.g. substance column) --> choose level(compound x1234) --> work with this subset | ||
| # --> correlation, assumptions, visulaisation and Tests | ||
|
|
||
| SplitByGroupUI <- function(id) { | ||
| ui <- fluidPage( | ||
| tags$head( | ||
| tags$style(HTML(" | ||
| .boxed-output { | ||
| border: 2px solid #900C3F; | ||
| padding: 10px; | ||
| border-radius: 5px; | ||
| margin-top: 10px; | ||
| } | ||
| .add-button { | ||
| position: relative; | ||
| padding-right: 20px; | ||
| } | ||
| .add-button::after { | ||
| content: '\\2295'; | ||
| position: absolute; | ||
| top: 1.1px; | ||
| right: 5px; | ||
| font-size: 16px; | ||
| font-weight: bold; | ||
| color: #900C3F; | ||
| background-color: white; | ||
| width: 15px; | ||
| height: 15px; | ||
| display: flex; | ||
| justify-content: center; | ||
| align-items: center; | ||
| } | ||
| .model { | ||
| background-color: #f8f9fa; | ||
| padding: 15px; | ||
| border: 2px solid #c8c8c8; | ||
| border-radius: 5px; | ||
| margin-top: 10px; | ||
| } | ||
| .title { | ||
| font-size: 14px; | ||
| font-weight: bold; | ||
| margin-bottom: 10px; | ||
| color: #333; | ||
| } | ||
| ")) | ||
| ), | ||
| fluidRow( | ||
| div( | ||
| uiOutput(NS(id, "colnames_dropdown")), | ||
| class = "boxed-output" | ||
| ), | ||
| div( | ||
| uiOutput(NS(id, "levels_dropdown")), | ||
| class = "boxed-output" | ||
| ), | ||
| actionButton(NS(id, "split_data"), "Split data") | ||
| ) | ||
| ) | ||
| } | ||
|
|
||
| SplitByGroupServer <- function(id, data) { | ||
| moduleServer(id, function(input, output, session) { | ||
| # Reactive values | ||
| r_vals <- reactiveValues( | ||
| df = NULL, | ||
| is_filtered = FALSE | ||
| ) | ||
|
|
||
| observe({ | ||
| r_vals$df <- data$df | ||
| }) | ||
|
|
||
| # Create colnames dropdown | ||
| output[["colnames_dropdown"]] <- renderUI({ | ||
| req(!is.null(r_vals$df)) | ||
| req(is.data.frame(r_vals$df)) | ||
| colnames <- names(r_vals$df) | ||
| tooltip <- "Select the column by name which you want to split by" | ||
| div( | ||
| tags$label( | ||
| "Variable", | ||
| class = "tooltip", | ||
| title = tooltip, | ||
| `data-toggle` = "tooltip" | ||
| ), | ||
| selectInput( | ||
| inputId = paste0("SG-colnames-dropdown_"), | ||
| label = "Variable", | ||
| choices = colnames[1:length(colnames)], | ||
| selected = NULL | ||
| ) | ||
| ) | ||
| }) | ||
|
|
||
| # Show levels based on column which is choosen | ||
| output[["levels_dropdown"]] <- renderUI({ | ||
| req(!is.null(r_vals$df)) | ||
| req(is.data.frame(r_vals$df)) | ||
| selected_col <- input[[paste0("colnames-dropdown_")]] | ||
| if (is.null(selected_col) || selected_col == "") { | ||
| return(NULL) | ||
| } | ||
| vals <- unique(r_vals$df[, selected_col]) | ||
| tooltip <- "Select the level (group) by name which you want to use" | ||
| div( | ||
| tags$label( | ||
| "Variable levels", | ||
| class = "tooltip", | ||
| title = tooltip, | ||
| `data-toggle` = "tooltip" | ||
| ), | ||
| selectInput( | ||
| inputId = paste0("SG-levels-dropdown_"), | ||
| label = "Variable levels", | ||
| choices = vals[1:length(vals)], | ||
| selected = NULL | ||
| ) | ||
| ) | ||
| }) | ||
|
|
||
| # React to split data | ||
| observeEvent(input$split_data, { | ||
| req(!is.null(r_vals$df)) | ||
| req(is.data.frame(r_vals$df)) | ||
| e <- try({ | ||
| selected_col <- input[[paste0("colnames-dropdown_")]] | ||
| selected_group <- input[[paste0("levels-dropdown_")]] | ||
| data$backup_df <- r_vals$df | ||
| data$df <- r_vals$df[r_vals$df[ ,selected_col] == selected_group, ] | ||
| data$filter_col <- selected_col | ||
| data$filter_group <- selected_group | ||
| }) | ||
| if (inherits(e, "try-error")) { | ||
| showNotification("Invalid formula", type = "error") | ||
| } | ||
| }) | ||
|
|
||
| # TODO: If data is split a button called remove filter has to appear | ||
|
|
||
| }) | ||
| } |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Oops, something went wrong.