test saving png

target.r

@@ -21,6 +21,9 @@ lprice = .01
 uprice = 30.00
 pqty = 2000
 
+
+png(filename="target.png")
+
 #prod_plot <- function(priceg, mold, colgrp, branding, outlier, xfact, yfact,xtrans, ytrans, lprice, uprice, pqty ) {
     sql = paste("SELECT * FROM rlarp.rlang_plot('",mold,"','",priceg,"','",colgrp,"','",branding,"',",lprice,",",uprice,") x",sep="");
 
@@ -292,4 +295,6 @@ pqty = 2000
         repr.plot.height=var.dim2*yfact
     );
     cp_pvt;
+
+    dev.off()
 #};