kingchenc
b7ef63400d
Adds an R binding (`bindings/r`) over the C ABI hub — the third language stecker after C# and Go, reaching the hub through R's native `.Call` interface (not extendr). ## What's here - **`bindings/r`** — an R package exposing all 514 indicators as constructors that return a `wickra_indicator` object with generic `update`/`batch`/`reset` methods. The C glue (`src/wickra.c`) and R wrappers (`R/indicators.R`) are generated from `bindings/c/include/wickra.h` (same archetype taxonomy as the C#/Go generators: scalar/batch, multi-output, bars, profile, profile-values, array-input). The opaque handle is an R external pointer freed by a registered finalizer; multi-output returns a named vector (`NA` at warmup), bars a matrix, profiles a list. - **`examples/r`** — the full example suite mirroring C/C#/Go: streaming, backtest, multi_timeframe, parallel_assets (`mclapply`), three strategies, and `fetch_btcusdt`/`live_binance`. - **CI** — an `r` job builds the C ABI library, installs the package, runs the `testthat` suite and the offline examples on Linux, macOS and Windows (`R CMD check` is clean: 0 warnings, 0 notes). - **Docs** — R added to the README languages table, project layout, building/testing, CONTRIBUTING binding table + regenerate note, ARCHITECTURE, examples index, issue/PR templates, the About-description template, and the other binding READMEs. ## Linking / distribution The package compiles a thin `.Call` glue layer against the prebuilt C ABI library (header via `WICKRA_INCLUDE_DIR`, library via `WICKRA_LIB_DIR`). On Windows the package's own `wickra.dll` would collide with the C ABI's `wickra.dll`, so `configure.win` stages a renamed copy (`wickra_abi.dll`) and builds an import library referencing it; `install.libs.R` bundles the DLL and `.onLoad` puts it on the load path. On Linux/macOS the rpath locates the shared library. No `release.yml` change — R is distributed via r-universe / source install (gated). No Rust crate or `Cargo.toml` change — the R package is standalone and additive.
79 lines
2.5 KiB
R
79 lines
2.5 KiB
R
#' wickra: streaming-first technical indicators
|
|
#'
|
|
#' R bindings for the Wickra technical-analysis library over its C ABI hub. Each
|
|
#' indicator is a constructor (for example [Sma()], [Rsi()], [MacdIndicator()])
|
|
#' returning a `wickra_indicator` object; feed it one observation at a time with
|
|
#' [update()], run a whole series in one call with [batch()], and clear its
|
|
#' state with [reset()]. The native handle is freed automatically when the object
|
|
#' is garbage-collected.
|
|
#'
|
|
#' @keywords internal
|
|
#' @importFrom stats update
|
|
"_PACKAGE"
|
|
|
|
#' Update an indicator with one observation
|
|
#'
|
|
#' @param object A `wickra_indicator` created by an indicator constructor.
|
|
#' @param ... The observation: a single value for scalar indicators, the OHLCV
|
|
#' fields plus a timestamp for candle indicators, or two values for pairwise
|
|
#' indicators.
|
|
#' @return The indicator value: a numeric scalar; a named numeric vector for
|
|
#' multi-output indicators (`NA` during warmup); a matrix of completed bars for
|
|
#' bar builders; or a list / numeric vector for profile indicators
|
|
#' (`NULL` during warmup).
|
|
#' @examples
|
|
#' sma <- Sma(3)
|
|
#' for (x in c(1, 2, 3, 4, 5)) v <- update(sma, x)
|
|
#' v # 4
|
|
#' @export
|
|
update.wickra_indicator <- function(object, ...) {
|
|
args <- list(object$ptr, ...)
|
|
if (!is.na(object$values_cap)) {
|
|
args <- c(args, object$values_cap)
|
|
}
|
|
do.call(".Call", c(list(paste0("wk_", object$prefix, "_update")), args,
|
|
list(PACKAGE = "wickra")))
|
|
}
|
|
|
|
#' Run an indicator over a whole series in one call
|
|
#'
|
|
#' Available for scalar indicators. The result is identical to feeding the same
|
|
#' inputs through [update()] one at a time, with `NA` at warmup positions.
|
|
#'
|
|
#' @param object A `wickra_indicator`.
|
|
#' @param ... The input vector(s).
|
|
#' @return A numeric vector the same length as the input.
|
|
#' @examples
|
|
#' batch(Sma(3), c(1, 2, 3, 4, 5)) # NA NA 2 3 4
|
|
#' @export
|
|
batch <- function(object, ...) {
|
|
UseMethod("batch")
|
|
}
|
|
|
|
#' @rdname batch
|
|
#' @export
|
|
batch.wickra_indicator <- function(object, ...) {
|
|
do.call(".Call", c(list(paste0("wk_", object$prefix, "_batch"), object$ptr),
|
|
list(...), list(PACKAGE = "wickra")))
|
|
}
|
|
|
|
#' Reset an indicator to its warmup state
|
|
#'
|
|
#' @param object A `wickra_indicator`.
|
|
#' @return The indicator, invisibly.
|
|
#' @examples
|
|
#' sma <- Sma(3)
|
|
#' update(sma, 1)
|
|
#' reset(sma)
|
|
#' @export
|
|
reset <- function(object) {
|
|
UseMethod("reset")
|
|
}
|
|
|
|
#' @rdname reset
|
|
#' @export
|
|
reset.wickra_indicator <- function(object) {
|
|
.Call(paste0("wk_", object$prefix, "_reset"), object$ptr, PACKAGE = "wickra")
|
|
invisible(object)
|
|
}
|