Merge pull request #455 from nuno-agostinho/update/1.24.0

nuno-agostinho · Oct 26, 2022 · d9d644a · d9d644a
2 parents f513e98 + 800700a
commit d9d644a
Show file tree

Hide file tree

Showing 4 changed files with 10 additions and 4 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: psichomics
 Title: Graphical Interface for Alternative Splicing Quantification, Analysis and
     Visualisation
-Version: 1.22.1
+Version: 1.24.0
 Encoding: UTF-8
 Authors@R: c(
         person("Nuno", "Saraiva-Agostinho",

diff --git a/NEWS.md b/NEWS.md
@@ -1,3 +1,7 @@
+# psichomics 1.24.0 (26 Oct, 2022)
+
+* Bug fix: psichomics app now opens as expected instead of crashing
+
 # psichomics 1.22.1 (14 July, 2022)
 
 * Bug fix: GTEx data v8 can now be downloaded using newer versions of R

diff --git a/R/app.R b/R/app.R
@@ -233,7 +233,7 @@ modTabPanel <- function(title, ..., icon=NULL, menu=FALSE) {
 replaceStrInList <- function(tag, old, new) {
     FUN <- function(x) {
         res <- x
-        if (grepl(old, x)) res <- gsub(old, new, x, fixed=TRUE)
+        if (any(grepl(old, x))) res <- gsub(old, new, x, fixed=TRUE)
         return(res)
     }
     rapply(tag, FUN, how="replace", classes="character")

diff --git a/R/utils_fileBrowserDialog.R b/R/utils_fileBrowserDialog.R
@@ -252,9 +252,11 @@ fileBrowserInput <- function(id, label, value=NULL, placeholder=NULL,
 
     check <- function (x, y) {
         # Based on shiny:::`%AND%`
-        if (!is.null(x) && !is.na(x))
-            if (!is.null(y) && !is.na(y))
+        if (!is.null(x) && !is.na(x)) {
+            if (!is.null(y) && !is.na(y$children[[1]])) {
                 return(y)
+            }
+        }
         return(NULL)
     }