fix #296 #280 run enc2native if not UTF-8

Rapporter · Jan 21, 2019 · 71b4e99 · 71b4e99
1 parent a6b6b17
commit 71b4e99
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/R/pandoc.R b/R/pandoc.R
@@ -640,6 +640,10 @@ pandoc.table.return <- function(t, caption, digits = panderOptions('digits'), de
 
     ## expands cells for output
     table.expand <- function(cells, cols.width, justify, sep.cols) {
+        ## fix encoding issue in C++ on Windows
+        if (l10n_info()$`UTF-8` == FALSE) {
+            cells <- enc2native(cells)
+        }
         .Call('pander_tableExpand_cpp', PACKAGE = 'pander', cells, cols.width, justify, sep.cols, style)
     }