使用 Tcltk 构建 GUI

Question

我是 R 的新手，我正在尝试使用 Tcltk 包构建 GUI。我不确定“tkGetOpenFile”是如何工作的。我认为通过使用此功能，它会打开我的数据集并将其保存到 RStudio 的工作区中。但唯一会发生的是一个选择文件的弹出窗口。

我使用的代码如下。

请帮帮我！！！

require(tcltk)
readCsv <- function(){
myval <- tkgetOpenFile()
mydata <- read.csv(paste(as.character(myval), collapse = " "))
assign("myData", mydata, envir = .GlobalEnv)
}

tt <- tktoplevel()
topMenu <- tkmenu(tt)           
tkconfigure(tt, menu = topMenu) 
fileMenu <- tkmenu(topMenu, tearoff = FALSE)
tkadd(fileMenu, "command", label = "Quit", command = function() tkdestroy(tt))
tkadd(fileMenu, "command", label = "Load", command = function() readCsv())
tkadd(topMenu, "cascade", label = "File", menu = fileMenu)
tkfocus(tt)

Answer 1

您需要使用tclvalue 函数来获取Tcl 变量的R 字符串表示。修改你的函数如下：

readCsv <- function(){
   myval <- tclvalue(tkgetOpenFile()) # add `tclvalue` here
   mydata <- read.csv(myval) # then `myval` is a character string
   assign("myData", mydata, envir = .GlobalEnv)
}