Função de tabela simples em linguagem R

Código

Este exemplo cria uma função de tabela que recebe um número variável de representações de cadeia de caracteres de tempo separadas por vírgulas, por exemplo, "12:30:55,4:20:18". A função gera uma linha para cada representação de tempo. Cada linha exibe o tempo dividido em suas partes componentes.

Digite o seguinte código no arquivo " /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()
}
}
}

Compilação

Compile o arquivo de código-fonte do R da seguinte forma:

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

Registro

Registre a função de tabela AE da seguinte forma:

/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

Executando

Quando você executa o AE registrado, o seguinte exemplo de saída é produzido:

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)