Función de tabla simple en lenguaje R

Código

Este ejemplo crea una función de tabla que toma un número variable de representaciones de cadenas de tiempo separadas por comas, por ejemplo, "12:30:55,4:20:18". La función produce una fila por cada representación temporal. Cada fila muestra el tiempo dividido en las partes que lo componen.

Introduce el siguiente código en el archivo ' /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()
}
}
}

Una compilación

Compile el archivo fuente R de la siguiente manera:

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

Registro

Registre la función de tabla AE como se indica a continuación:

/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

En ejecución

Cuando se ejecuta el AE registrado, se produce la siguiente salida de ejemplo:

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)