added minscore.

fgcz · Jan 23, 2024 · 09654d5 · 09654d5
1 parent a59315d
commit 09654d5
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 5 deletions.
diff --git a/R/AnalysisConfiguration.R b/R/AnalysisConfiguration.R
@@ -109,7 +109,6 @@ R6_extract_values <- function(r6class){
 }
 
 
-
 #' Setup a tidy table compatible with a \code{\link{AnalysisConfiguration}}
 #'
 #' Extracts columns relevant for a configuration from a data frame

diff --git a/R/ContrastsPlotter.R b/R/ContrastsPlotter.R
@@ -155,7 +155,8 @@ ContrastsPlotter <- R6::R6Class(
     #' @param scales default fixed \code{\link{facet_wrap}}, scales argument
     volcano = function(colour,
                        legend = TRUE,
-                       scales = c("fixed","free","free_x","free_y")){
+                       scales = c("fixed","free","free_x","free_y"),
+                       minscore = 0.0001){
       if (missing(colour)) {
         colour <- self$modelName
       }
@@ -164,7 +165,8 @@ ContrastsPlotter <- R6::R6Class(
                               self$volcano_spec,
                               colour = colour,
                               legend = legend,
-                              scales = scales )
+                              scales = scales,
+                              minscore = minscore)
       return(fig)
     },
     #' @description
@@ -175,7 +177,8 @@ ContrastsPlotter <- R6::R6Class(
     #' @param scales default fixed \code{\link{facet_wrap}}, scales argument
     volcano_plotly = function(colour,
                               legend = TRUE,
-                              scales = c("fixed","free","free_x","free_y")){
+                              scales = c("fixed","free","free_x","free_y"),
+                              minscore = 0.0001){
       if (missing(colour)) {
         colour <- self$modelName
       }
@@ -185,7 +188,8 @@ ContrastsPlotter <- R6::R6Class(
                               colour = colour,
                               legend = legend,
                               scales = scales,
-                              plotly = TRUE)
+                              plotly = TRUE,
+                              minscore = minscore)
       return(res)
     },
     #' @description
-Original file line number
+Diff line change
@@ Expand Up / @@ -109,7 +109,6 @@ R6_extract_values <- function(r6class){ @@
     }
     #' Setup a tidy table compatible with a \code{\link{AnalysisConfiguration}}
     #'
     #' Extracts columns relevant for a configuration from a data frame
@@ Expand Down @@