Displaying 1 result from an estimated 1 matches for "model_value_chang".
Did you mean:
model_value_changed
2012 Apr 24
0
help with GUI interface
...le.type), list(...)),
silent=TRUE)
if(inherits(out, "try-error")) {
cat("Error reading file of type,", file.type, "\n")
out <- data.frame(nova="")
}
} else {
out <- data.frame(nova="")
}
return(out)
}
dlg$model_value_changed <- function(.) {
fname <- .$get_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_...