From b58e206f0fd73c3268cf930615fe9f3ccf8a5f43 Mon Sep 17 00:00:00 2001
From: Emily de la Rua <emily.de_la_rua@contractors.roche.com>
Date: Wed, 15 Nov 2023 16:18:47 -0500
Subject: [PATCH] Remove top left format override

---
 R/as_html.R | 17 ++++-------------
 1 file changed, 4 insertions(+), 13 deletions(-)

diff --git a/R/as_html.R b/R/as_html.R
index 307c18683..0e4865a72 100644
--- a/R/as_html.R
+++ b/R/as_html.R
@@ -85,15 +85,16 @@ as_html <- function(x,
   cells <- matrix(rep(list(list()), (nlh + nrow(x)) * (nc)), ncol = nc)
 
   for (i in seq_len(nrow(mat$strings))) {
-    # rows <- which(mat$line_grouping == i)
     for (j in seq_len(ncol(mat$strings))) {
       curstrs <- mat$strings[i, j]
+      curspn <- mat$spans[i, j]
+      algn <- mat$aligns[i, j]
+
       inhdr <- i <= nlh
       tagfun <- if (inhdr) tags$th else tags$td
-      
       cells[i, j][[1]] <- tagfun(
         class = if (inhdr) class_th else class_tr,
-        class = if (j > 1 || i > nlh) paste0("text-", algn),
+        style = paste0("text-align: ", algn, ";"),
         style = if (inhdr && !"header" %in% bold) "font-weight: normal;",
         style = if (i == nlh && header_sep_line) "border-bottom: 1px solid black;",
         colspan = if (curspn != 1) curspn,
@@ -102,16 +103,6 @@ as_html <- function(x,
     }
   }
 
-  ## special casing hax for top_left. We probably want to do this better someday
-  cells[1:nlh, 1] <- mapply(
-    FUN = function(x, algn) {
-      tags$th(x, class = class_th, style = "white-space: pre;")
-    },
-    x = mat$strings[1:nlh, 1],
-    algn = mat$aligns[1:nlh, 1],
-    SIMPLIFY = FALSE
-  )
-
   if (header_sep_line) {
     cells[nlh][[1]] <- htmltools::tagAppendAttributes(
       cells[nlh, 1][[1]],