merge gt default branch in

Merge branch 'master' into latex_unicode_conversion

# Conflicts:
#	NEWS.md

Author: thebioengineer

NEWS.md

@@ -6,6 +6,13 @@
 
 * as_word() now handles "<br>" line breaks for md() and html(), and no longer automatically adds "Table N" ahead of the caption. 
 
+* Improvements to options for LaTeX including repeating Headers, removing top and bottom lines, applying font sizes, and line breaks (@thebioengineer, #1630, #1061, #1767)
+
+* Add `latex()` function to let users write the LaTeX they wish to see in the table cell or text (@thebioengineer, #1912)
+
+* Added support for some unicode characters when going out to LaTeX (@thebioengineer)
+
+
 # gt 1.0.0
 
 ## Minor improvements and bug fixes
@@ -28,13 +35,6 @@
 
 * Fixed many typos in the documentation. (#1910, thanks @MichaelChirico!)
 
-* Improvements to options for LaTeX including repeating Headers, removing top and bottom lines, applying font sizes, and line breaks (@thebioengineer, #1630, #1061, #1767)
-
-* Add `latex()` function to let users write the LaTeX they wish to see in the table cell or text (@thebioengineer)
-
-* Added support for some unicode characters when going out to LaTeX (@thebioengineer)
-
-
 # gt 0.11.1
 
 ## Breaking changes

R/helpers.R

@@ -153,7 +153,7 @@ html <- function(text, ...) {
 #'   The text that is understood to be LaTeX text, which is to be preserved in
 #'   the LaTeX output context.
 #'
-##'
+#'
 #' @return A character object of class `latex`. It's tagged as an latex fragment
 #'   that is not to be sanitized.
 #'

R/utils.R

@@ -1152,7 +1152,7 @@ markdown_to_latex <- function(text, md_engine) {
           }
 
           if(grepl("..gt\\_linebreak\\_indicator..", x, fixed = TRUE)){
-            x <- paste0("\\shortstack[l]{",gsub("..gt\\_linebreak\\_indicator.."," \\\\", x, fixed = TRUE),"}")
+            x <- paste0("\\shortstack[l]{" ,gsub("..gt\\_linebreak\\_indicator..", " \\\\", x, fixed = TRUE), "}")
           }
 
           x

R/utils_render_latex.R

@@ -94,7 +94,7 @@ latex_heading_row <- function(content, header_repeat = FALSE) {
   paste0(
     paste(paste(content, collapse = " & "), "\\\\ \n"),
     "\\midrule",
-    if(header_repeat){"\\endhead"},
+    if (header_repeat) {"\\endhead"},
     "\\addlinespace[2.5pt]\n",
     collapse = ""
   )
@@ -627,7 +627,7 @@ create_columns_component_l <- function(data, colwidth_df) {
   include_toprule <- dt_options_get_value(data, "latex_toprule")
 
   paste0(
-    if(include_toprule){"\\toprule\n"},
+    if (include_toprule) {"\\toprule\n"},
     paste0(table_col_spanners, collapse = ""),
     table_col_headings
   )