在gWidgets中正确使用挪威字符(以文本字符串表示)

Question

我用gWidgets在R中创建了一个图形用户界面，这很好，除非我必须使用某些语言中的特殊字符，比如挪威语(奥尔，厄姆，埃森)。

在某种程度上，mty脚本从文件(dam.csv)读取值，其中一个值是存储库(magasin)的名称，它有挪威的特殊字符。即Samsj en

我的输入文件dam.csv包含以下数据

"magasin","HRV","damtop","starts","ends","QT"
"Samsjøen",486.7,488.5,1,200,"QT"

有时，在gbutton中，我执行以下操作

rd<-read.csv("dam.csv")
svalue(dam)<-as.character(rd$magasin)

这是完整的gbutton按钮

#update dam data from a file
btn_dam <- gbutton(
  text      = "(5) Get Dam Characteristics,starts & end from file dam.csv (optional)",
  container = g2,
  handler   = function(h,...)
  {
    if(file.exists("dam.csv")){
      rd<-read.csv("dam.csv")
      svalue(dam)<-as.character(rd$magasin)
      svalue(hrv)<-as.character(rd$HRV)
      svalue(dtop)<-as.character(rd$damtop)
      svalue(Starts)<-as.character(rd$starts)
      svalue(Ends)<-as.character(rd$ends)
      svalue(qt)<-as.character(rd$QT)
    }else{
      svalue(status_bar) <-paste("File dam.csv is Missing")#**********************}
  }
  }
)

无毛(Gedits)见于

g2 <- ggroup(F,container = win) #widget to conatin horizontal widgets

这些光肩/毛是按以下方式创建的

#QT
txtb9 <- glabel("Label", container = g2)
qt<- gedit("QT", container = g2)
txtb4<- glabel("Reservoir Name: ", container =g2)
dam <- gedit("DamName", container = g2)
#HRV
txtb5 <- glabel("HRV: ", container = g2)
hrv <- gedit("275.00", container = g2)
#Damtop
txtb6 <- glabel("TOP: ", container = g2)
dtop <- gedit("276.50", container = g2)
#Starts
tsbx<-glabel("(6) STRART/END TIMESTEPS", container = g2,markup=TRUE)
txtb7 <- glabel("Start: ", container = g2)
Starts <- gedit("0", container = g2)
#Damtop
txtb8 <- glabel("End: ", container = g2)
Ends<- gedit("167", container = g2)

无论如何，结果是Samsj en变成了Samsj，en。如何保存从输入文件中读取的挪威字符？(请注意，我对嵌入脚本中的挪威人字符没有类似的问题，因为它们没有修改)

​

​

Answer 1

对不起，我不能复制这个问题。我认为它与Gtk的设置放在一起。如果您直接使用RGtk，请检查是否发生了相同的问题。

library(RGtk2) b = gtkButton("Samsjøen") w = gtkWindow() w$add(b)