Funzione di tabella semplice in linguaggio R

Codice

Questo esempio crea una funzione tabella che accetta un numero variabile di rappresentazioni di stringhe di tempo separate da virgole, ad esempio "12:30:55,4:20:18". La funzione produce una riga per ogni rappresentazione temporale. Ogni riga mostra il tempo suddiviso nelle sue parti.

Inserite il seguente codice nel file '/tmp/split_many.R:

nz.fun <- function() {
while(getNext()) {
input <- getInputColumn(0)
chunks <- strsplit(input, ',')[[1]]
times <- strsplit(chunks, ':')
for (tm in times) {
for (i in seq_along(tm))the following output
setOutputString(i-1, tm[1])
outputResult()
}
}
}

Compilazione

Compilare il file sorgente R come segue:

/nz/export/ae/utilities/bin/compile_ae --language r --version 3 \
--template compile --user nz --db dev /tmp/split_many.R

Registrazione

Registrare la funzione tabella AE come segue:

/nz/export/ae/utilities/bin/register_ae --language r --version 3 \
--template udtf --exe split_many.R --sig "split_many(VARCHAR(20))" \
--return "TABLE(hour VARCHAR(2), minute VARCHAR(2), second VARCHAR(2))" \
--db dev --user nz

In esecuzione

Quando si esegue l'AE registrato, viene prodotto il seguente esempio di output:

SELECT * from TABLE WITH FINAL(split_many('13:22:47,22:12:45,03:22:09'));
HOUR | MINUTE | SECOND
------+--------+--------
13 | 22 | 47
22 | 12 | 45
03 | 12 | 45
(3 rows)