Fix bug in print.latexMatrix(sparse=TRUE)

friendly · Oct 13, 2024 · 74c2b54 · 74c2b54
1 parent b8e25ef
commit 74c2b54
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -2,6 +2,8 @@
 
 - Rename vignettes to put them in order
 - Add `papers/matlib-useR-2016.pdf` to avoid bad URL
+- Consolidate options for `print.latexMatrix`
+- Fix bug in `print.latexMatrix(sparse=TRUE)`
 
 # matlib 1.0.0
 

diff --git a/R/latexMatrix.R b/R/latexMatrix.R
@@ -555,7 +555,7 @@ latexMatrix <- function(
   body <- unname(do.call(rbind, splt)) # matrix of LaTeX cells
   body <- sub(" *$", "", sub("^ *", "", body))
   if(sparse)
-    mat.result <- gsub('[[:blank:]]+0[[:blank:]]+', ' ', mat.result)
+    mat.result <- gsub('[[:blank:]]*0[[:blank:]]*', ' ', mat.result)
 
   if (!is.null(rownames)){
     rownames <- as.character(rownames)
@@ -771,7 +771,7 @@ print.latexMatrix <- function(x, onConsole=TRUE,
     cell.spacing <- "e"
   if (is.null(colname.spacing) || is.na(colname.spacing)) 
     colname.spacing <- "i"
-  if (is.null(text.labels) || is.na(text.labels)) 
+  if (is.null(text.labels) || all(is.na(text.labels))) 
     text.labels <- c("row"=FALSE, "column"=FALSE)
   if (is.null(display.labels) || is.na(display.labels)) 
     display.labels <- TRUE