[R] Sending a function as an argument to C code.

[Christophe Genolini]

Hi the list,

I am writing a function (myFunc) that is using an other function (let 
say distance).

+++++++++++++++
dist1 <- function(x,y)dist(rbind(x,y))
dist2 <- function(x,y)y2

myFunc <- function(x,distance){
  cat("...\n")
  cat(distance(1,x))
}
myFunc(x=3,distance=dist1)
myFunc(x=3,distance=dist2)
----------------

In order to optimize the code, I would like to write myFunc in C. Is it 
possible, in the C code, to call a function define in R (dist1 or dist2) 
that will be send to myFunc as an argument ?

Christophe