R langue fonction scalaire 1

Dans R AE, l'objet principal fourni par l'utilisateur est une fonction appelée " nz.fun. Il encapsule la boucle principale de l'AE et utilise l'API de l'AE R pour recevoir et émettre des données. L'exemple suivant montre l'implémentation de " applyop dans R.

nz.fun <- function () {
while(getNext()) {
op <- getInputColumn(0)
X <- c()
for (i in seq(1, inputColumnCount()-1)) {
x <- as.numeric(getInputColumn(i))
if (!is.null(x) && !is.na(x))
X <- append(X, x)
}
if (op != '+' && op != '*')
stop('incorrect operator: ', op)
setOutputInt32(0, eval(parse(text=paste(X, collapse=op))))
outputResult()
}
}

La boucle principale se termine lorsque " getNext() renvoie la valeur false, ce qui indique qu'il n'y a plus de lignes d'entrée à traiter. Chaque ligne d'entrée est accessible par le " getInputColumn() qui renvoie la valeur de la colonne spécifiée par son index. L'indice de la première colonne est zéro et l'indice de la dernière colonne est " inputColumnCount()-1. Les valeurs de sortie sont traitées par les fonctions " setOutput*, où l'astérisque représente un identifiant de type de données spécifique. Pour envoyer les valeurs de sortie à la base de données, la fonction " outputResult() doit être appelée.

En cas d'erreur, appelez la fonction R standard " stop() ou utilisez la fonction de l'API AE appelée " userError(). Les deux fonctions interrompent l'exécution du programme et renvoient le message d'erreur à l'appelant.

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

Au cours de l'étape de compilation, le fichier source d'entrée est sérialisé à l'aide de l'API R standard et préparé pour une exécution ultérieure. La sortie est stockée sous un chemin prédéfini qui est accessible depuis l'hôte et sur les SPU, en fonction de la base de données et des noms d'utilisateur.