I saved R with UTF-8 to allow Chinese Character then it will report as below

Closing the issue. With a recent fix in <a class="issue-link js-issu

Is it available for Chinese Characters? about r2rtf HOT 2 CLOSED

wangay21 commented on August 15, 2024

Is it available for Chinese Characters?

from r2rtf.

Comments (2)

elong0527 commented on August 15, 2024

Please try the code below for an ad-hoc solution. I will need to think a robust way to enable this feature in r2rtf.

If you still have issue, could you provide additional example using reprex? https://reprex.tidyverse.org/

the logic of convert_utf8 is from https://stackoverflow.com/questions/66275158/specify-utf-8-character-encoding-in-rtf-the-text-in-utf-8-format-is-correctly

#' Convert UTF text to proper RTF encoding 
#' 
#' @param x a string 
convert_utf8 <- function(x){

  stopifnot(length(x) == 1)
  
  x_int <- utf8ToInt(x)
  
  x_char <- ifelse(x_int < 32768, 
                   paste0("\\uc1\\u", x_int, "*"), 
                   paste0("\\uc1\\u", x_int - 65536, "*"))
  
  paste(x_char, collapse = "")
  
}

library(r2rtf)
library(dplyr)
head(iris) %>% 
  rtf_title(convert_utf8("标题: abc")) %>% 
  rtf_body() %>% 
  rtf_footnote(convert_utf8("脚注")) %>%
  rtf_encode() %>% 
  write_rtf("tmp.rtf")

from r2rtf.

elong0527 commented on August 15, 2024

Closing the issue.

With a recent fix in #93, we can use code below for the table.

library(r2rtf)
library(dplyr)
head(iris) %>% 
  rtf_title(r2rtf:::utf8Tortf("标题: abc")) %>% 
  rtf_body() %>% 
  rtf_footnote(r2rtf:::utf8Tortf("中文脚注: abc")) %>%
  rtf_encode() %>% 
  write_rtf("tmp.rtf")

from r2rtf.

Recommend Projects