Subversion Repositories bdplot

Rev

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

Rev 29 Rev 34
Line 11... Line 11...
11 
  if( !is.na(file) )
 11 
  if( !is.na(file) )
12 
    {
 12 
    {
13 
      ## If figdir is supplied, prepending it to filename.
 13 
      ## If figdir is supplied, prepending it to filename.
14 
      if(!is.null(prm$figdir)&!is.na(prm$figdir))
 14 
      if(!is.null(prm$figdir)&!is.na(prm$figdir))
15 
        {
 15 
        {
16 
          file <- paste(prm$figdir,file,sep="")
 16 
          file <- paste(prm$figdir,file,sep="/")
17 
        }
 17 
        }
18 
      ## determining device driver from filename
 18 
      ## determining device driver from filename
19 
      nchars <- nchar(file)
 19 
      nchars <- nchar(file)
20 
 
 20 
 
21 
      if( any( substr(file,nchars-2,nchars)==".ps",substr(file,nchars-3,nchars)==".eps")){
 21 
      if( any( substr(file,nchars-2,nchars)==".ps",substr(file,nchars-3,nchars)==".eps")){