tweak print.latexMatrix() to eliminate unnecessary empty \phantom{}s

friendly · Sep 9, 2024 · 139df8f · 139df8f
1 parent cff610e
commit 139df8f
Showing 1 changed file with 7 additions and 4 deletions.
diff --git a/R/latexMatrix.R b/R/latexMatrix.R
@@ -753,10 +753,13 @@ print.latexMatrix <- function(x, onConsole=TRUE,
           countChars(colnames[j], adjust=FALSE) 
         }
         pad <- max(max.col[j] - nchar, 0) 
-        colnames[j] <- paste0(colnames[j], 
-                              paste0("\\phantom{", 
-                                     paste(rep(colname.spacing, pad), collapse=""),
-                                     "}"))
+        if (any(pad > 0)){
+          colnames[j] <- paste0(colnames[j], 
+                                paste0("\\phantom{", 
+                                       paste(rep(colname.spacing, pad), 
+                                             collapse=""),
+                                       "}"))
+        }
       }
     }
     if (!is.null(colnames)){