release v8.9: example of file that remove some R packages. But works only if...

release v8.9: example of file that remove some R packages. But works only if dependencies from packages kept are not removed

R/v4.1.2/contracted/v1.0/Dockerfile

+#########################################################################
+##                                                                     ##
+##     Dockerfile                                                      ##
+##     R contracted                                                      ##
+##                                                                     ##
+##     Gael A. Millot                                                  ##
+##     Bioinformatics and Biostatistics Hub                            ##
+##     Computational Biology Department                                ##
+##     Institut Pasteur Paris                                          ##
+##                                                                     ##
+#########################################################################
+
+
+
+# to see the log of the building:
+# sudo docker run -ti --entrypoint bash <IMAGE_NAME>
+# cat building.log
+
+# to export the log file of the image building from the container:
+# sudo docker images
+# sudo docker run -ti --entrypoint bash <IMAGE_NAME>
+# exit
+# sudo docker container ls -a # to get all the active containers
+# sudo docker cp <containerNAMES>:/building.log </host/path/target>
+# sudo docker cp <containerNAMES>:/not_removed_r_packages.txt </host/path/target>
+# sudo docker cp <containerNAMES>:/installed_r_packages.csv </host/path/target>
+
+
+# base image:
+FROM gmillot/r_v4.1.2_extended_v2.1:gitlab_v8.8
+# Warning: the name must be exactly what is written in the docker images interface, or sudo docker image ls. Here, the image is present locally, or distantly on the gmillot repo. Thus, gmillot/r-base:4.0.5 is correct.
+
+LABEL Gael.Millot=gael.millot@pasteur.fr
+LABEL gitlab.dockerfiles="https://gitlab.pasteur.fr/gmillot/dockerfiles"
+
+
+ENV APT_GET_LINUX_LIB=""
+
+ENV APT_LINUX_LIB=""
+
+ENV CRANREPO="'https://cran.irsn.fr/'"
+
+# indicate below the packages to remove
+ENV RLIB="\
+  'qqman' \
+"
+
+
+
+
+# fun.warning.capture from fun_get_message() of the cute package.
+# I used a first loop because I cannot use array in dockerfiles.
+RUN echo "\n\n\n\n================\n\napt-get update\n\n================\n\n\n\n" > building.log \
+  && add-apt-repository -y ppa:cran/poppler \
+  && apt-get update \
+    | tee -a building.log ; echo "\n\n\n\n================\n\napt-get install\n\n================\n\n\n\n" >> building.log \
+  && apt-get install -y $APT_GET_LINUX_LIB \
+    | tee -a building.log ; echo "\n\n\n\n================\n\napt install\n\n================\n\n\n\n" >> building.log \
+  && apt -y install $APT_LINUX_LIB \
+    | tee -a building.log \
+  && RLIB_LENGTH=0 \
+  && for i2 in $RLIB ; do RLIB_LENGTH=$((RLIB_LENGTH+1)) ; done \
+  && COUNT=0 \
+  && for i2 in $RLIB ; do \
+    COUNT=$((COUNT+1)) ; \
+    Rscript --vanilla -e " \
+      options(warn = 1, verbose = TRUE) ; \
+      tempo <- file('building.log', open = 'a+b') ; \
+      sink(file = tempo, append = TRUE, type = 'message') ; \
+      fun.warning.capture <- function(expr){ \
+        W <- NULL ; \
+        w.handler <- function(w){ \
+          W <<- w ; \
+          invokeRestart('muffleWarning') \
+        } ; \
+        output <- list( \
+          value = suppressMessages(withCallingHandlers(tryCatch(expr, error = function(e){e}), warning = w.handler)),  \
+          warning = W \
+        ) ; \
+        return(if(is.null(output\$warning)){NULL}else{as.character(output\$warning)}) \
+      } ; \
+      message(paste0('\n\n\n\n================\n\nR PACKAGE REMOVAL ', $COUNT, ' / ', $RLIB_LENGTH, ': ', $i2, '\n\n================\n\n\n\n')) ; \
+      remove.packages(pkgs = $i2, lib = '/usr/local/lib/R/site-library') \
+    " ; \
+  done \
+  && Rscript --vanilla -e  " \
+    options(warn = 1, verbose = TRUE) ; \
+    args <- commandArgs(trailingOnly = TRUE) ; \
+    if(any(is.na(args))){ \
+        stop(paste0('\n\n================\n\nERROR IN R\nTHE args OBJECT HAS NA\n\n================\n\n'), call. = FALSE) \
+    } ; \
+    tempo.arg.names <- c( \
+        'RLIB' \
+    ) ; \
+    if(length(args) != length(tempo.arg.names)){ \
+        stop(paste0('\n\n================\n\nERROR IN R\nTHE NUMBER OF ELEMENTS IN args (', length(args),') IS DIFFERENT FROM THE NUMBER OF ELEMENTS IN tempo.arg.names (', length(tempo.arg.names),')\nargs:', paste0(args, collapse = ','), '\ntempo.arg.names:', paste0(tempo.arg.names, collapse = ','), '\n\n================\n\n'), call. = FALSE) \
+    } ; \
+    for(i1 in 1:length(tempo.arg.names)){ \
+        assign(tempo.arg.names[i1], args[i1]) \
+    } ; \
+    RLIB <- strsplit(RLIB, split = ',')[[1]] ; \
+    RLIB <- RLIB[RLIB != ''] ; \
+    if(file.exists('installed_r_packages.csv')){ \
+      file.remove('installed_r_packages.csv') \
+    } ; \
+    if(file.exists('not_removed_r_packages.txt')){ \
+      file.remove('not_removed_r_packages.txt') \
+    } ; \
+    tempo <- file('building.log', open = 'a+b') ; \
+    sink(file = tempo, append = TRUE, type = 'message') ; \
+    message(paste0('\n\n\n\n================\n\nR PACKAGES INSTALLED\n\n================\n\n\n\n')) ; \
+    message('SEE ALSO THE installed_r_packages.csv TABLE IN THE ROOT OF THE CONTAINER\n\n') ; \
+    capture.output(as.data.frame(installed.packages())[1:4], file = tempo, append = TRUE, type = 'output') ; \
+    df <- as.data.frame(installed.packages()) ; \
+    for (i2 in 1:length(df)){ \
+      df[, i2] <- gsub(x = df[, i2], replacement = '', pattern = '\n', fixed = TRUE) \
+    } ; \
+    write.table(x = df, file = 'installed_r_packages.csv', row.names = FALSE, col.names = TRUE, append = FALSE, quote = FALSE, sep = ';') ; \
+    message(paste0('\n\n\n\n================\n\nR PACKAGES NOT INSTALLED\n\n================\n\n\n\n')) ; \
+    df2 <- as.data.frame(RLIB[RLIB %in% df[ , 'Package']]) ; \
+    if(nrow(df2) == 0){ \
+      message('ALL THE PACKAGES TO REMOVE HAVE BEEN UNINSTALLED\n\n') \
+    }else{ \
+      message('SEE ALSO THE not_removed_r_packages.txt TABLE IN THE ROOT OF THE CONTAINER\n\n') ; \
+      names(df2) <- 'Name' ; \
+      capture.output(df2, file = tempo, append = TRUE, type = 'output') ; \
+      write.table(x = df2, file = 'not_removed_r_packages.txt', row.names = FALSE, col.names = TRUE, append = FALSE, quote = FALSE, sep = ';') ; \
+    } \
+  " $(echo "$RLIB" | sed 's/ \{1,\}/,/g' | sed "s/'//g") \
+  && echo "\n\n\n\n================\n\napt-get autoremove\n\n================\n\n\n\n" >> building.log \
+  && apt-get autoremove -y \
+    | tee -a building.log ; echo "\n\n\n\n================\n\napt-get clean\n\n================\n\n\n\n" >> building.log \
+  && apt-get clean \
+    | tee -a building.log ; echo "\n\n\n\n================\n\nrm\n\n================\n\n\n\n" >> building.log \
+  && rm -rf /var/lib/apt/lists/* \
+    | tee -a building.log \
+  && echo "\n\n\n\n================\n\nLINUX PACKAGES INSTALLED\n\n================\n\n\n\n" >> /building.log \
+  && apt-cache policy $APT_GET_LINUX_LIB $APT_LINUX_LIB \
+    >> /building.log
+
+# dependencies=NA means c("Depends", "Imports", "LinkingTo"). Do no use TRUE -> install suggesting packages which inflates tremendously the image.
+
+ENTRYPOINT ["/usr/bin/R"]

README.md

@@ -71,6 +71,12 @@ Hub-CDB Institut Pasteur & DSI Institut Pasteur
 
 Use the gitlab tag of the docker image (e.g., gitlab_v5.0) to get the description of the modifications below
 
+### v8.9
+
+Dockerfiles added: <br />
+R\v4.1.2\contracted\v1.0 at date 20220622: example of file that remove some R packages. But works only if dependencies from packages kept are not removed
+
+
 ### v8.8
 
 Dockerfiles added: <br />