WebSVN – bdplot – Diff – /bdgraphics/R/4_bdplot.R

                    ## only used in case of plot mode
                    type=bdp()$type,
                    ## Only used in case of histogram plotting
                    border=bdp()$border,freq=NULL,
                    ...){
+## set this to TRUE if something is returned. eg, happens in barplot
+  ret <- FALSE
   ## experimental. Is this the right consequence of not having a
   ## device opened?
   if(length(dev.list())==0){
     cat("No graphics device is initialised. Running bdopen() without arguments.\n")
   } else if (is.numeric(x)){
     if(prm$method=="barplot"){
       if(prm$debug)
         cat("The Bacher/Delff Plotting System (R), (C), TM operating in barplot mode.\n")
       ## this does not provide the full x,y functionality of barplot
-      barplot(height=x,
+      retval <- barplot(height=x,
-              ## maybe these two are wrong/stupid?
+                        ## maybe these two are wrong/stupid?
-              cex.axis=prm$cex.lab,
+                        cex.axis=prm$cex.lab,
-              cex.names=prm$cex.lab,
+                        cex.names=prm$cex.lab,
-              col=bdp()$hcol,
+                        col=bdp()$hcol,
-              border=border,
+                        border=border,
-              xlab=xlab,
+                        xlab=xlab,
-              ylab=ylab,
+                        ylab=ylab,
-              ylim=ylim,
+                        ylim=ylim,
-              main=main,
+                        main=main,
-              ...)
+                        ...)
+      ret <- TRUE
       draw.xaxis <- FALSE
       draw.yaxis <- FALSE
     } else {
       if(prm$debug)
   if( prm$grid ){
     grid(col=prm$grid.col)
+  }
   ## vertical lines
-  if( !is.na(prm$grid.v) ){
+  if( any(!is.na(prm$grid.v)) ){
-    if(prm$grid.v=="Def"){
+    if(prm$grid.v[1]=="Def"){
       grid(nx=NULL,ny=NA,col=prm$grid.col)
     } else
+    {
       abline(v=prm$grid.v, lty="dotted", col=prm$grid.col)
+    }
+  }
-  if( !is.na(prm$grid.h) ){
+  if( any(!is.na(prm$grid.h)) ){
-    if(prm$grid.h=="Def"){
+    if(prm$grid.h[1]=="Def"){
       grid(nx=NA,ny=NULL,col=prm$grid.col)
     }else{
       abline(h=prm$grid.h, lty="dotted", col=prm$grid.col)}
+    }
   options(warn=0)
   ##Title stuff
   ## Hvorfor??
-  scale <- 1
+  scale <- 1.4
   if( !is.na(prm$tlab) ){
     mtext(prm$tlab, side=3, line=0.25, cex=prm$cex.lab/scale)
+  }
   if( !is.na(prm$rlab) ){
     mtext(prm$rlab, side=4, line=0.75, cex=prm$cex.lab/scale,mgp=prm$mgp.raxis)
+  }
+  if(ret){
+    invisible(ret)
+  }
+}

Subversion Repositories bdplot

(root)/bdgraphics/R/4_bdplot.R – Rev 61 → 62