From 295316d57864fb98a00aa25830efbb0e5d19da2a Mon Sep 17 00:00:00 2001
From: Vincent Arel-Bundock <vincent.arel-bundock@umontreal.ca>
Date: Sat, 2 Nov 2024 15:27:56 -0400
Subject: [PATCH] dcolumn bug

---
 R/style_tabularray.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/style_tabularray.R b/R/style_tabularray.R
index 8b168fbf..8dd80cf2 100644
--- a/R/style_tabularray.R
+++ b/R/style_tabularray.R
@@ -93,7 +93,7 @@ style_apply_tabularray <- function(x) {
         if (!identical(halign, "d")) {
             set[idx] <- sprintf("%s, halign=%s,", set[idx], halign)
         } else {
-            dcol <- get_dcolumn(rec[row]$j[1], x)
+            dcol <- get_dcolumn(rec[row, "j"], x)
             set[idx] <- sprintf("%s, %s", set[idx], dcol)
         }
     }