From x|@oy@n@yu @end|ng |rom gm@||@com  Wed Jun  2 22:33:21 2021
From: x|@oy@n@yu @end|ng |rom gm@||@com (xiaoyan yu)
Date: Wed, 2 Jun 2021 16:33:21 -0400
Subject: [Rd] How to get utf8 string using R externals
Message-ID: <CANjVfJ0ciTGb9tR3bnYWGS4M=8uTGDsddSBx-4kxkULdyR1XxA@mail.gmail.com>

I have a R Script Predict.R:
    set.seed(42)
    C <- seq(1:1000)
    A <- rep(seq(1:200),5)
    E <- (seq(1:1000) * (0.8 + (0.4*runif(50, 0, 1))))
    L <- ifelse(runif(1000)>.5,1,0)
    df <- data.frame(cbind(C, A, E, L))
load("C:/Temp/tree.RData")                #  load the model for scoring

  P <- as.character(predict(tree_model_1,df,type='class'))

Then in a C++ program
I call eval to evaluate the script and then findVar the P variable.
After get each class label from P using string_elt and then
Rf_translateChar, the characters are unicodes (<U+BD80><U+C2E4>) instead of
utf8 encoding of the korean characters ??.
Can I know how to get UTF8 by using R externals?

I also found the same script giving utf8 characters in RGui but unicode in
Rterm.
I tried to attach a screenshot but got message "The message's content type
was not explicitly allowed"
In RGui, I saw the output ??, while in Rterm, <U+BD80><U+C2E4>.

Please help.

	[[alternative HTML version deleted]]



[Rd] How to get utf8 string using R externals
xiaoyan yu