Fixed hidden columns not updating after initial choice.

Dockerfile

@@ -6,6 +6,11 @@ RUN apt-get update && apt-get install -y libssl-dev liblzma-dev libbz2-dev libic
 RUN apt-get install -y openjdk-8-jdk
 
 # Install required R packages
+# We need a patched version of EBImage
+# jkh1/EBImage must be installed before RBioformats
+# otherwise RBioformats will install the official EBImage package
+# and re-installing the patched version over the official one
+# seems to cause problems to rJava
 RUN R CMD javareconf
 RUN R -e "install.packages('rJava', repos='https://ftp.gwdg.de/pub/misc/cran/')"
 RUN R -e "install.packages('remotes', repos='https://ftp.gwdg.de/pub/misc/cran/')"

image_data_explorer.R

@@ -543,6 +543,7 @@ server <- function(input, output, session) {
   ## Show the data table in the explorer
   output$dataTable <- renderDT({
     req(rv$data)
+    cols.not.shown <- rv$colsToHide
     isolate({
       datatable(rv$data[rv$currentRows,],
                 class = 'row-border hover',
@@ -555,7 +556,7 @@ server <- function(input, output, session) {
                                scrollY = 1000,
                                scroller = TRUE,
                                stateSave = TRUE,
-                               columnDefs = list(list(visible = FALSE, targets = rv$colsToHide)),
+                               columnDefs = list(list(visible = FALSE, targets = cols.not.shown)),
                                searchCols = defaultSearchColumns,
                                search = list(regex = FALSE, caseInsensitive = FALSE, search = defaultSearch),
                                autoWidth = TRUE,