我已经使用gWidgets在R中创建一个GUI。除非我必须使用仅在挪威语(Å,Ø,Æ)等特定语言中找到的特殊字符,否则它的效果很好。
在某些时候,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")#**********************}
}
}
)
glabels / gedits在
中找到g2 <- ggroup(F,container = win) #widget to conatin horizontal widgets
glabels / gedits创建如下
#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。如何保存从输入文件中读取的挪威字符? (请注意,我对脚本中嵌入的Norwegoan字符没有类似的问题,因为它们没有被修改)
答案 0 :(得分:0)
抱歉,我无法重现此问题。我认为它符合Gtk的设置。如果直接通过
使用RGtk
,是否可以检查是否出现同样的问题?
library(RGtk2)
b = gtkButton("Samsjøen")
w = gtkWindow()
w$add(b)