more save work

target.r

@@ -13,7 +13,7 @@ mold = "XTG154"
 colgrp = ".*"
 branding = ".*"
 outlier = 300
-xfact = 4
+xfact = 5
 yfact = 5
 xtrans = "identity"
 ytrans = "identity"
@@ -22,7 +22,7 @@ uprice = 30.00
 pqty = 2000
 
 
-png(filename="target.png")
+#Ipng(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="");
@@ -295,6 +295,8 @@ png(filename="target.png")
         repr.plot.height=var.dim2*yfact
     );
     cp_pvt;
+    ggsave("targetggsave.png")
+    #dev.print(png, 'targetpl.png')
 
-    dev.off()
+    #dev.off()
 #};