Source a block of text containing C code

source_code() will parse through x looking for functions tagged with // [[ export() ]] and will compile the code block and export those functions to the R side.

source_code(x, includes = NULL, no_remap = TRUE, show = FALSE)

Arguments

x	[character(1)] A block of C code to compile.
includes	[NULL / character()] Extra includes to add manually. By default, R.h and Rinternals.h are included. Specify more includes with their file name. For example, to include #include <Rdefines.h> you just need to specify "Rdefines.h".
no_remap	[logical(1)] Should #define R_NO_REMAP be defined?
show	[logical(1)] Should the output of compiling the source code with R CMD SHLIB be shown?

Value

A named list containing the functions specified for export.

Examples

code <- "
  static SEXP helper(SEXP x) {
    return x;
  }

  // [[ export() ]]
  SEXP fn1(SEXP x) {
    return helper(x);
  }

  // [[ export() ]]
  SEXP fn2(SEXP x, SEXP y) {
    double result = REAL(x)[0] + REAL(y)[0];
    return Rf_ScalarReal(result);
  }
"

sourced <- source_code(code)

sourced$fn1(1)
#> [1] 1
sourced$fn2(1, 2)
#> [1] 3