pt/rlang
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

test saving png

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
target.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 70 KiB

5
target.r
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()
#}; #};