Merge pull request #2075 from thebioengineer/shortstack_alignment_investigation

Shortstack alignment

Author: rich-iannone

.Rbuildignore

@@ -205,6 +205,7 @@ tests/testthat/test-utils_render_grid.R
 tests/testthat/_snaps/utils_render_grid.md
 
 tests/testthat/test-utils_render_html.R
+tests/testthat/test-utils_render_latex.R
 tests/testthat/test-utils_render_rtf.R
 tests/testthat/test-utils_units.R
 

NEWS.md

@@ -8,6 +8,9 @@
 
 * Fix bug where latex spanner widths were based on incorrect column widths (@shannonhaughton, #2016, #1922)
 
+* Update latex to allow for horizontal alignment within cells (@thebioengineer, #2001)
+
+
 # gt 1.1.0
 
 ## New features

R/export.R

@@ -243,37 +243,41 @@ as_latex <- function(data) {
   # Compose the LaTeX table
   if (dt_options_get_value(data = data, option = "latex_use_longtable")) {
     knitr::asis_output(
-      paste0(
-        wrap_start_statement,
-        table_width_statement,
-        fontsize_statement,
-        table_start,
-        caption_component,
-        heading_component,
-        columns_component,
-        body_component,
-        table_end,
-        footer_component,
-        wrap_end_statement,
-        collapse = ""
+      latex_cleanup_multicolumn(
+        paste0(
+          wrap_start_statement,
+          table_width_statement,
+          fontsize_statement,
+          table_start,
+          caption_component,
+          heading_component,
+          columns_component,
+          body_component,
+          table_end,
+          footer_component,
+          wrap_end_statement,
+          collapse = ""
+        )
       ),
       meta = latex_packages
     )
   } else {
     knitr::asis_output(
-      paste0(
-        wrap_start_statement,
-        caption_component,
-        heading_component,
-        table_width_statement,
-        fontsize_statement,
-        table_start,
-        columns_component,
-        body_component,
-        table_end,
-        footer_component,
-        wrap_end_statement,
-        collapse = ""
+      latex_cleanup_multicolumn(
+        paste0(
+          wrap_start_statement,
+          caption_component,
+          heading_component,
+          table_width_statement,
+          fontsize_statement,
+          table_start,
+          columns_component,
+          body_component,
+          table_end,
+          footer_component,
+          wrap_end_statement,
+          collapse = ""
+        )
       ),
       meta = latex_packages
     )