writeLines(temp_tex, paste0(temp_file, ".tex"), useBytes = T)
diff --git a/R/kable_as_image.R b/R/kable_as_image.R
index c5b263e..5f6d9b0 100644
--- a/R/kable_as_image.R
+++ b/R/kable_as_image.R
@@ -70,7 +70,7 @@
     )
     temp_tex <- paste(temp_tex, collapse = "\n")
     temp_file <- paste0("table_", format(Sys.time(), "%Y-%m-%d_%H%M%S"))
-    writeLines(temp_tex, paste0(temp_file, ".tex"))
+    writeLines(temp_tex, paste0(temp_file, ".tex"), useBytes = T)
     system(paste0("xelatex -interaction=batchmode ", temp_file, ".tex"))
     temp_file_delete <- paste0(temp_file, c(".tex", ".aux", ".log"))
     if(!keep_tex) {