Displaying 1 result from an estimated 1 matches for "set_output".
Did you mean:
get_output
2012 Apr 24
0
help with GUI interface
...e("\\.",i,sep=""), fname))
.$set_file.type(c(txt="table",csv="csv")[i])
}
}
switch(.$get_file.type(),
"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)))...