columnname fix for summary algo

IKNL · Sep 2, 2024 · a9576d3 · a9576d3
1 parent a4550ba
commit a9576d3
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git a/docker/vtg.summary.Dockerfile b/docker/vtg.summary.Dockerfile
@@ -20,6 +20,11 @@ RUN Rscript -e 'install.packages("/usr/local/R/vtg.preprocessing", \
 COPY ./${PKG_NAME}/src /usr/local/R/${PKG_NAME}/
 
 WORKDIR /usr/local/R/${PKG_NAME}
+# Install R and necessary packages
+# Somehow prettyunit crashes when installed using the `install_deps`
+RUN R -e "remove.packages('prettyunits')"
+RUN R -e "install.packages('prettyunits', repos='http://cran.rstudio.com/')"
+
 RUN Rscript -e 'library(devtools)' -e 'install_github("IKNL/vtg")'
 RUN Rscript -e 'devtools::install_deps(".")'
 RUN Rscript -e 'install.packages(".", repos = NULL, type = "source", INSTALL_opts = "--no-multiarch")'

diff --git a/vtg.summary/src/R/RPC_summary.R b/vtg.summary/src/R/RPC_summary.R
@@ -137,6 +137,7 @@ get_column_ranges <- function(data, columns) {
       colnames(summary_numeric) <- numeric_columns
     } else {
       summary_numeric <- do.call(cbind, lapply(data[, numeric_columns], summary))
+      colnames(summary_numeric) <- numeric_columns
     }
   }