improve encoding for LaTeX table. #138
diff --git a/R/add_header_above.R b/R/add_header_above.R
index 59bae17..a0c37f3 100644
--- a/R/add_header_above.R
+++ b/R/add_header_above.R
@@ -150,7 +150,7 @@
   } else {
     new_header <- new_header_split[1]
   }
-  out <- str_replace(enc2utf8(as.character(kable_input)),
+  out <- str_replace(solve_enc(kable_input),
                      hline_type,
                      paste0(hline_type, "\n", new_header))
   out <- structure(out, format = "latex", class = "knitr_kable")