🔨 Added lookback-function to templates

Author: serkor1

codegen/generate_indicator_core.sh

@@ -144,7 +144,7 @@ done
 for i in "${!in_scalars_name[@]}"; do
   R_SIGNATURE+=$'\tSEXP '"${in_scalars_name[$i]}"$',\n'
 done
-R_SIGNATURE=${R_SIGNATURE%$'\n'}
+R_SIGNATURE=${R_SIGNATURE%,$'\n'}
 
 ## 6) PARAM_DOC
 ##

codegen/templates/candlestick_template.c.in

@@ -24,6 +24,21 @@
 #include "normalize.h"
 #include <ta_libc.h>
 
+// the lookback function 
+// is exported as a standalone
+// function for downstream wrappers
+// clang-format off
+SEXP impl_ta_${NAME}_lookback($R_SIGNATURE
+)
+// clang-format on
+{
+    // calculate lookback
+    const int lookback = {{LOOKBACK}};
+    SEXP output = PROTECT(Rf_ScalarInteger(lookback));
+
+    return output;
+}
+
 // clang-format off
 SEXP impl_ta_{{NAME}}(
     SEXP inOpen,

codegen/templates/indicator_template.R.in

@@ -110,3 +110,31 @@ ${FUN}.matrix <- function(
 			...
 		)
 }
+
+#' @usage NULL
+${ALIAS}_lookback <- ${FUN}_lookback <- function(
+	x,
+	cols,${ARGS}
+	...
+) {
+	## validate 'cols'-argument
+	## if explicitly passed
+	if (!missing(cols)) {
+		assert_formula(cols)
+	}
+
+	## construct series
+	## from input
+	constructed_series <- series(
+		x = cols,
+		default_formula = ${FORMULA},
+		data = x,
+		...
+	)
+
+	.Call(
+		C_impl_ta_${TA_FUN}_lookback,
+		## splice:lookback:start
+		## splice:lookback:end
+	)
+}

codegen/templates/indicator_template.c.in

@@ -20,8 +20,24 @@
 #include <Rinternals.h>
 #include <ta_libc.h>
 
+// the lookback function 
+// is exported as a standalone
+// function for downstream wrappers
 // clang-format off
-SEXP impl_ta_${NAME}($R_SIGNATURE
+SEXP impl_ta_${NAME}_lookback($R_SIGNATURE
+)
+// clang-format on
+{
+    // calculate lookback
+    const int lookback = TA_${NAME}_Lookback($LOOKBACK_ARGS);
+
+    SEXP output = PROTECT(Rf_ScalarInteger(lookback));
+
+    return output;
+}
+
+// clang-format off
+SEXP impl_ta_${NAME}($R_SIGNATURE,
 	SEXP na_bridge
 )
 // clang-format on

codegen/templates/moving_average_template.R.in

@@ -163,6 +163,34 @@ $FUN.numeric <- function(
 
 }
 
+#' @usage NULL
+${ALIAS}_lookback <- ${FUN}_lookback <- function(
+	x,
+	cols,${ARGS}
+	...
+) {
+	## validate 'cols'-argument
+	## if explicitly passed
+	if (!missing(cols)) {
+		assert_formula(cols)
+	}
+
+	## construct series
+	## from input
+	constructed_series <- series(
+		x = cols,
+		default_formula = ${FORMULA},
+		data = x,
+		...
+	)
+
+	.Call(
+		C_impl_ta_${TA_FUN}_lookback,
+		## splice:lookback:start
+		## splice:lookback:end
+	)
+}
+
 #' @usage NULL
 #' @aliases $FUN
 #'

codegen/templates/rolling_template.R.in

@@ -70,3 +70,16 @@ ${FUN}.numeric <- function(
 	## return indicator
 	as.double(x)
 }
+
+#' @usage NULL
+${ALIAS}_lookback <- ${FUN}_lookback <- function(
+	x,${ARGS}
+) {
+
+	.Call(
+		C_impl_ta_${TA_FUN}_lookback,
+		## splice:lookback:start
+		## splice:lookback:end
+	)
+	
+}