Keep whitespace in html tables (#777)

Closes #775

NEWS.md

@@ -4,6 +4,8 @@
 
 ### Miscellaneous
  * Applied `styler` and resolved package lint. Changed default indentation from 4 spaces to 2.
+ * Added Developer Guide to pkgdown site with Debugging, Split Machinery, and Tabulation sections.
+ * Whitespace is not trimmed when rendering tables with `as_html`.
 
 ## rtables 0.6.5
 ### New Features
@@ -17,9 +19,6 @@
 ### Miscellaneous
  * Added slide decks for advanced training as internal files.
 
-### Miscellaneous
-* Added Developer Guide to pkgdown site with Debugging, Split Machinery, Table Hierarchy, and Tabulation sections.
-
 ## rtables 0.6.4
 ### New Features
  * Added support for `.docx` exports with `export_as_docx()`.

R/as_html.R

@@ -147,6 +147,7 @@ as_html <- function(x,
   rows <- apply(cells, 1, function(row) {
     tags$tr(
       class = class_tr,
+      style = "white-space:pre;",
       Filter(function(x) !identical(x, NA_integer_), row)
     )
   })

tests/testthat/test-exporters.R

@@ -246,6 +246,18 @@ test_that("as_html Viewer with newline test", {
   options(oldo)
 })
 
+test_that("as_html does not trim whitespace", {
+  tbl <- rtable(
+    header = LETTERS[1:3],
+    format = "xx",
+    rrow("  r1", 1, 2, 3),
+    rrow(" r 2  ", 4, 3, 2, indent = 1),
+    rrow("r3   ", indent = 2)
+  )
+  html_tbl <- as_html(tbl)
+  html_parts <- html_tbl$children[[1]][[1]]$children
+  expect_true(all(sapply(1:4, function(x) html_parts[[x]]$attribs$style == "white-space:pre;")))
+})
 
 ## https://github.com/insightsengineering/rtables/issues/308
 test_that("path_enriched_df works for tables with a column that has all length 1 elements", {