test saving png

This commit is contained in:
Paul Trowbridge 2022-05-02 13:52:45 +00:00
parent 3ceb18871b
commit 9297c6c99a
2 changed files with 5 additions and 0 deletions

BIN
target.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 70 KiB

View File

@ -21,6 +21,9 @@ lprice = .01
uprice = 30.00 uprice = 30.00
pqty = 2000 pqty = 2000
png(filename="target.png")
#prod_plot <- function(priceg, mold, colgrp, branding, outlier, xfact, yfact,xtrans, ytrans, lprice, uprice, pqty ) { #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=""); 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 repr.plot.height=var.dim2*yfact
); );
cp_pvt; cp_pvt;
dev.off()
#}; #};