@sjcrh/proteinpaint-server 2.107.0 → 2.108.0

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
Files changed (6) hide show
  1. package/package.json +3 -3
  2. package/routes/correlationVolcano.js +20 -2
  3. package/routes/termdb.DE.js +27 -6
  4. package/routes/termdb.cluster.js +18 -7
  5. package/src/app.js +91 -28
  6. package/utils/edge.R +9 -1
package/utils/edge.R CHANGED
@@ -142,7 +142,15 @@ if (length(input$conf1) == 0) { # No adjustment of confounding factors
142
142
  })
143
143
  #cat("Exact test time: ", exact_test_time[3], " seconds\n")
144
144
  } else { # Adjusting for confounding factors
145
- y$samples <- data.frame(conditions = conditions, conf1 = input$conf1)
145
+
146
+ # Check the type of confounding variable
147
+ if (input$conf1_mode == "continuous") { # If this is float, the input conf1 vector should be converted into a numeric vector
148
+ conf1 <- as.numeric(input$conf1)
149
+ } else { # When input$conf1_mode == "discrete" keep the vector as string. PLEASE ASK WHAT OTHER POSSIBLE TERM TYPES ARE POSSIBLE
150
+ conf1 <- as.factor(input$conf1)
151
+ }
152
+
153
+ y$samples <- data.frame(conditions = conditions, conf1 = conf1)
146
154
  model_gen_time <- system.time({
147
155
  design <- model.matrix(~ conditions + conf1, data = y$samples)
148
156
  })