Subversion Repositories bdplot

Rev

Rev 61 | Rev 67 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 61 Rev 66
Line 15... Line 15...
15 
      ## If figdir is supplied, prepending it to filename.
 15 
      ## If figdir is supplied, prepending it to filename.
16 
      if(!is.null(prm$figdir)&!is.na(prm$figdir))
 16 
      if(!is.null(prm$figdir)&!is.na(prm$figdir))
17 
        {
 17 
        {
18 
          file <- paste(prm$figdir,file,sep="/")
 18 
          file <- paste(prm$figdir,file,sep="/")
19 
        }
 19 
        }
- 
 
 20 
      cat("Writing to",file,"\n")
20 
      ## determining device driver from filename
 21 
      ## determining device driver from filename
21 
      nchars <- nchar(file)
 22 
      nchars <- nchar(file)
22 
##### should switch be used here?
 23 
##### should switch be used here?
23 
      if( any( substr(file,nchars-2,nchars)==".ps",substr(file,nchars-3,nchars)==".eps")){
 24 
      if( any( substr(file,nchars-2,nchars)==".ps",substr(file,nchars-3,nchars)==".eps")){
24 
        m <- {
 25 
        m <- {