Fix bug in gallery.

R/explore_gallery.R

@@ -100,7 +100,7 @@ explore_gallery_server <-function(input, output, session, rv, session_parent){
           }
           I <- combine(obj)
         } else { # We deal with whole images
-          depth <- 10 # Images may have variable number of slices
+          depth <- 1 # Images may have variable number of slices
           for(f in file.list) {
             img.metadata <- read.metadata(f)
             # Adjust tile dimensions to images
@@ -132,7 +132,7 @@ explore_gallery_server <-function(input, output, session, rv, session_parent){
             }
           }
           # Ensure all images have the same size
-          if(length(dim(img[[1]] == 2))) {
+          if(length(dim(img[[1]])) == 2) {
             dims <- c(tile.w, tile.h)
           } else {
             dims <- c(tile.w, tile.h, depth)

image_data_explorer.R

@@ -4,7 +4,7 @@
 ## Main application file ##
 ###########################
 
-VERSION <- "v1.4.5" # Update this when creating a new version
+VERSION <- "v1.4.7" # Update this when creating a new version
 
 # Increase max upload size to 1 GB
 options(shiny.maxRequestSize=1000*1024^2)