Define slice.def for all cases, not just 3d.

R/explore_gallery.R

@@ -49,6 +49,9 @@ explore_gallery_server <-function(input, output, session, rv, session_parent){
             imgPaths <- imgPaths[sample.idx]
           }
           slice.def <- list()
+          for(i in 1:nrow(dtmp)) {
+            slice.def[[i]] <- list()
+          }
           img.metadata <- list()
           if(class(rv$imgRoot)[1] == "s3_bucket"){ # Images are in a S3 bucket
             file.list <- c()
@@ -72,7 +75,6 @@ explore_gallery_server <-function(input, output, session, rv, session_parent){
             } 
             ## Slice definition for each image
             for(i in 1:nrow(dtmp)) {
-              slice.def[[i]] <- list()
               slice.def[[i]][[frameName]] = rv$selectedFrame[i]
             }
           }