UPDATE UI

- create menu bar and action button in Columns module

R/mod_Columns.R

@@ -27,6 +27,10 @@ mod_Columns_ui <- function(id){
                       tags$form(class = "well",
                                 `style`="background-color:#2c3e50;",
                                 uiOutput(ns("input_choice")),
+                                tags$div(style = "text-align:right",
+                                         actionButton(ns("create_input"), "Create input object")
+                                ),
+                                tags$br(),
                                 mod_upload_ui(ns("upload_ui_1"))
                                 ),
                       ),
@@ -40,22 +44,29 @@ mod_Columns_server <- function(input, output, session, con){
   ns <- session$ns
 
   upload_ui_1 <- callModule(mod_upload_server, "upload_ui_1", con = con)
-  observeEvent(upload_ui_1$module, {
-    MODifieR_module <- upload_ui_1$module
+
+  observeEvent(upload_ui_1$input_object, {
+    MODifieR_module <- upload_ui_1$input_object
   }
   )
 
   output$input_choice <- renderUI({
     input_objects <- unlist(MODifieRDB::get_available_input_objects(con)$input_name)
-    selectInput(ns("input_object"), label = "Input object", choices = input_objects, selected = NULL) #Problem with selected input that triggers the second column.
+    selectInput(ns("input_object"), label = "Input object", choices = input_objects)
   })
-
+
+
+  # Action button for creating input
+  observeEvent(input$create_input, {
+    upload_ui_1$input_object <- input$input_object
+  })
+
+
   upload_algorithm <- reactive({
-    req(upload_ui_1$module | input$input_object) #Can't trigger the OR operator due to input_object not logical or numerical
-
-    if (is.null(upload_ui_1$module)){
-
-       return(NULL)
+    req(upload_ui_1$input_object) 
+
+    if (is.null(upload_ui_1$input_object)){
+      return(NULL)
     }
   })
 
@@ -72,7 +83,7 @@ mod_Columns_server <- function(input, output, session, con){
 
   # Module conatiners
   output$algorithm1 <- renderUI({
-    algoirthm_matrix <- upload_algorithm()
+    upload_algorithm()
     tags$div(`class`="col-sm-4",
              tags$form(class = "well",
                        `style`="background-color:#2c3e50;",

R/mod_Description1.R

@@ -12,7 +12,7 @@ mod_Description1_ui <- function(id){
   tagList(
     tags$div(id = "Inference_method",
              selectInput(ns("Inference_method"), label = "Inference method", choices = c("Clique Sum", "WGCNA", "DIAMoND", "DiffCoEx", "MCODE", "MODA", "Module Discoverer", "Correlation Clique"),
-                         tooltip = F)
+                         tooltip = T)
     ),
     htmlOutput(ns("description")),
     tags$br(),

R/mod_upload.R

@@ -102,7 +102,7 @@ mod_upload_server <- function(input, output, session, input_object, con){
                                       con = con)
 
 
-    MODifieR_module$module <- input_object
+    MODifieR_module$input_object <- input_object
   })