使用gWidgets选择文件

Question

下面是使用gWidgets包创建的R小部件的仿制示例：

library(gWidgets)
options("guiToolkit"="RGtk2")

f <- function(file){
    dat <- read.table(file, header=TRUE)
return(dat[1,])
}

lst <- list() 
    lst$action <- list(beginning="f(",ending=")")
    lst$arguments$file <- list(type="gfilebrowse")

ggenericwidget(lst, container=gwindow("Example"))

使用Windows时，浏览和选择文件时出现问题：文件路径中的反斜杠不会加倍。如何克服这个问题？我不知道如何用字符串中的双反斜杠替换反斜杠。

Answer 1

您可能需要gsub("/", "\\\\", x)但不确定是否需要{{1}}。我没有准备好测试的Windows机器，但如果需要，我会感到惊讶。