en PL/R

CREATE OR REPLACE FUNCTION f_graph() RETURNS text AS
'
str <<- pg.spi.exec (''select x as "mon a" ,y as "mon b" from temp order by x,y'');
pdf(''monplot.pdf'');
plot(str,type="l",main="Démonstration",sub="Graphique");
dev.off();
print(''OK'');
'
LANGUAGE plr;