用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)
}