tabularray: no complete rows if complete columns

vincentarelbundock · Nov 3, 2024 · d14c3a8 · d14c3a8
1 parent 7a23c88
commit d14c3a8
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/R/style_tabularray.R b/R/style_tabularray.R
@@ -163,7 +163,7 @@ setMethod(
 
   idx <- rec$span != "" | rec$set != ""
 
-  # complete columns
+  # complete columns (first because of d-column)
   cols <- unique(rec[idx & rec$complete_column, c("j", "set", "span"), drop = FALSE])
   spec <- by(cols, list(cols$set, cols$span), function(k) {
     sprintf("column{%s}={%s}{%s}", paste(k$j, collapse = ","), k$span, k$set)
@@ -174,7 +174,10 @@ setMethod(
   }
 
   # complete rows
-  rows <- unique(rec[idx & rec$complete_row, c("i", "set", "span"), drop = FALSE])
+  rows <- unique(rec[
+    idx & rec$complete_row & !rec$complete_column,
+    c("i", "set", "span"),
+    drop = FALSE])
   spec <- by(rows, list(rows$set, rows$span), function(k) {
     sprintf("row{%s}={%s}{%s}", paste(k$i, collapse = ","), k$span, k$set)
   })