view R/rdyncall/demo/callbacks.R @ 3:f5d4d5c2f750

- gemspec fix
author cslag
date Thu, 31 Dec 2015 20:24:53 +0100
parents 0cfcc391201f
children
line wrap: on
line source

# Package: rdyncall 
# File: demo/callbacks.R
# Description: Creating a callback and call it via .dyncall

# The function to wrap:
f <- function(x,y) x+y

# Create the callback:
cb <- new.callback("ii)i", f)

# Call the callback
r <- .dyncall(cb, "ii)i", 20, 3)
r == 23

# Recursive callback example:

f <- function(x,y,f,i) 
{
  if (i > 1) .dyncall(f, "iipi)i", x,y,f,i-1)
  x+y
}

cb <- new.callback("iipi)i", f)

r <- .dyncall(cb, "iipi)i", 1,1,cb,100 )
r == 2