graphsave: ~~function to do ... ~~

In Survomatic: Analysis of longevity data.

Description

~~ A concise (1-5 lines) description of what the function does. ~~

Usage

graphsave(path, xynames, suffix, prompt)

Arguments

path	~~Describe path here~~
xynames	~~Describe xynames here~~
suffix	~~Describe suffix here~~
prompt	~~Describe prompt here~~

Details

~~ If necessary, more details than the description above ~~

Value

~Describe the value returned If it is a LIST, use

comp1	Description of 'comp1'
comp2	Description of 'comp2'

...

Note

~~further notes~~

~Make other sections like Warning with Warning .... ~

Author(s)

~~who you are~~

References

~put references to the literature/web site here ~

See Also

~~objects to See Also as help, ~~~

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function(path,xynames,suffix,prompt){
	if(prompt<2){return();}
	fname<-paste(path,paste(xynames,collapse=""),suffix,sep="");
	message<-paste("Do you wish to save this graph as",fname,"?\n");
	choices<-c("Save under suggested name.",
		   "Give a different name (point and click).",
		   "Type in a name from the console.",
		   "Don\'t save.")
	cat(message);
	input<-menu(choices,graphics=T,title=message);
	switch(input,
		dev.copy2eps(file=fname),
		{fname<-tclvalue(tkgetSaveFile(initialdir=path,initialfile=paste(xynames,collapse=""),
			defaultextension=suffix));dev.copy2eps(file=fname);},
		{res<-0;class(res)<-'try-error';
		 while(class(res)=='try-error'){
			fname<-readline("Please type the path and name to which you want to save the file: ");
			print(fname); res<-try(dev.copy2eps(file=fname));
			if(class(res)=='try-error'){cat('Oops. Bad file name or path, try again please.\n')}}
		},
		cat("\nContinuing without saving.")
	)

  }

Survomatic documentation built on May 2, 2019, 4:09 p.m.