Subversion Repositories bdplot

Rev

Rev 68 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 68 Rev 71
Line 13... Line 13...
13 
  }
 13 
  }
14 
  if(prm$debug)
 14 
  if(prm$debug)
15 
    print(prm$height)
 15 
    print(prm$height)
16 
  if( !is.na(file) )
 16 
  if( !is.na(file) )
17 
    {
 17 
    {
18 
      ## If figdir is supplied, prepending it to filename.
 18 
      ## If figdir is supplied, prepending it to filename. It would be great only to do this if the path given in file is not absolute, ie starting by eather / or ~.
19 
      if(!is.null(prm$figdir)&!is.na(prm$figdir))
 19 
      if(!is.null(prm$figdir)&&!is.na(prm$figdir) && (substring(bdp()$figdir,1,1)!="~"&&substring(bdp()$figdir,1,1)!="/") )
20 
        {
 20 
        {
21 
          file <- paste(prm$figdir,file,sep="/")
 21 
          file <- paste(prm$figdir,file,sep="/")
22 
        }
 22 
        }
23 
      cat("Writing to",file,"\n")
 23 
      cat("Writing to",file,"\n")
24 
      ## determining device driver from filename
 24 
      ## determining device driver from filename