Changeset: 84cfabdfc18e for MonetDB
URL: http://dev.monetdb.org/hg/MonetDB?cmd=changeset;node=84cfabdfc18e
Added Files:
sql/backends/monet5/Tests/rapi08.sql
Branch: RIntegration
Log Message:
added table-to-table UDF test case
diffs (40 lines):
diff --git a/sql/backends/monet5/Tests/rapi08.sql
b/sql/backends/monet5/Tests/rapi08.sql
new file mode 100644
--- /dev/null
+++ b/sql/backends/monet5/Tests/rapi08.sql
@@ -0,0 +1,35 @@
+START TRANSACTION;
+
+CREATE TABLE edges ("from" integer, "to" integer);
+insert into edges values(1,2),(3,2) ;
+
+CREATE FUNCTION pagerank(arg1 integer, arg2 integer) RETURNS TABLE ("node"
integer, "rank" double) LANGUAGE R {
+ library(igraph)
+ graph <- graph.data.frame(data.frame(arg1,arg2))
+ return(data.frame(node=as.integer(V(graph)),
rank=page.rank(graph)$vector))
+};
+
+-- this is the naive version that would be nicest
+SELECT * FROM pagerank(edges);
+
+-- of course, a subselect might also be useful
+SELECT * FROM pagerank(SELECT * FROM edges AS e);
+
+-- or a CTE?
+WITH e AS SELECT * FROM edges SELECT * FROM pagerank(e);
+
+-- output should be
+-- node rank
+-- 1 0.2127660
+-- 2 0.2127660
+-- 3 0.5744681
+
+DROP FUNCTION pagerank;
+DROP TABLE edges;
+
+ROLLBACK;
+
+
+
+
+
_______________________________________________
checkin-list mailing list
checkin-list@monetdb.org
https://www.monetdb.org/mailman/listinfo/checkin-list
