我有以下代码来选择输入和输出文件夹的目录。
require(gWidgets2RGtk2)
input=NULL
win = gwindow("Stage 1")
g = ggroup(horizontal=FALSE,cont=win)
g1=ggroup(cont=g)
svalue(input)<-gbutton("Input folder",cont=g1,expand=TRUE,handler=function(...) {
input=gfile(type="selectdir")
gmessage(paste0("Input directory set to ",input))
input
})
g2=ggroup(cont=g)
gbutton("Ouput folder",cont=g2,expand=TRUE,handler=function(...) {
output=gfile(type="selectdir")
gmessage(paste0("Output directory set to ",output))
})
但是,运行时,代码不会返回输入和输出文件夹目录。有人可以告诉我我在做什么错吗?
为了详细说明我的意见,以下是同时使用环境和 <<-
require(gWidgets2)
options(guiToolkit="RGtk2")
input <- NULL # global
e <- new.env() # environment
win = gwindow("Stage 1")
g = ggroup(horizontal=FALSE,cont=win)
gbutton("Input folder",cont=g,handler=function(...) {
value <- gfile(type="selectdir")
gmessage(paste0("Input directory set to ",value))
## assign via <<-
input <<- value
## assign to an environment
e$input <- value
})
gbutton("What is stored?", cont=g, handler=function(...) {
print(sprintf("The global variable has %s", input))
print(sprintf("The environment stores %s", e$input))
})
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句