在gWidgets

时间:2016-01-06 09:38:46

标签: r string gwidgets

我已经使用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字符没有类似的问题,因为它们没有被修改)

Title of a plot from the scripts

1 个答案:

答案 0 :(得分:0)

抱歉,我无法重现此问题。我认为它符合Gtk的设置。如果直接通过

使用RGtk,是否可以检查是否出现同样的问题?

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