tabularray_inner at the end of styles

vincentarelbundock · Nov 17, 2024 · 8d6f64f · 8d6f64f
1 parent 9191d51
commit 8d6f64f
Showing 1 changed file with 9 additions and 8 deletions.
diff --git a/R/style_tabularray.R b/R/style_tabularray.R
@@ -38,14 +38,6 @@ setMethod(
     sty$alignv[which(sty$alignv == "t")] <- "h"
     sty$alignv[which(sty$alignv == "m")] <- "m"
 
-    for (spec in stats::na.omit(sty$tabularray_inner)) {
-      x@table_string <- tabularray_insert(x@table_string, content = spec, type = "inner")
-    }
-
-    for (spec in stats::na.omit(sty$tabularray_outer)) {
-      x@table_string <- tabularray_insert(x@table_string, content = spec, type = "inner")
-    }
-
     set <- span <- rep("", nrow(rec))
 
     # d-column are column-wise, so we treat them here
@@ -236,6 +228,15 @@ setMethod(
       x@table_string <- tabularray_insert(x@table_string, content = s, type = "inner")
     }
 
+    for (spec in unique(stats::na.omit(sty$tabularray_inner))) {
+      x@table_string <- tabularray_insert(x@table_string, content = spec, type = "inner")
+    }
+
+    for (spec in stats::na.omit(sty$tabularray_outer)) {
+      x@table_string <- tabularray_insert(x@table_string, content = spec, type = "inner")
+    }
+
+
     return(x)
   })