Displaying 1 result from an estimated 1 matches for "get_assign".
Did you mean:
vget_assign
2012 Apr 24
0
help with GUI interface
..."csv"={.$set_sep(","); .$set_quote('\"')},
"table"={},
{}
)
.$set_output(.$do_call("read_file",.$to_R()))
}
dlg$OK_handler <- function(.) {
out <- .$do_call("read_file",.$to_R())
assign.to <- .$get_assign.to()
if(exists(assign.to, envir=.GlobalEnv)) {
if(!gconfirm(sprintf("Overwrite variable %s?", assign.to)))
return()
}
assign(assign.to, out, envir=.GlobalEnv)
}
dlg$make_gui(gui_layout=view)
--
Leah Mathibela
mobile:078-3311-491
work:087-7545-997
www.nova.org.za