Displaying 1 result from an estimated 1 matches for "set_sep".
Did you mean:
set_seq
2012 Apr 24
0
help with GUI interface
...t_file()
if(file.exists(fname)) {
for(i in c("txt","csv")) {
if(grepl(paste("\\.",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(as...