Voce vai precisar ler mesmo o material do manual e, para uma versao
expressa, ver as notas de aula que postei no topico ao qual referi-me
anteriormente.
1) Minha recomendacao (e de todo mundo que usa R+C) e' vc gerar a
biblioteca usando:
R CMD SHLIB arquivo.c
2) Quando o R conversa com o C, tudo o que o C enxerga sao ponteiros.
Entao, toda a comunicacao C <-> R deve ser feita via ponteiros.
Dito isso, seu programa precisa ser ligeiramente modificado:
/* INICIO */
/*
Programa: exfun.c
Objetivo; Primeiro exemplo de uso de funcao
Autor: Adriano Cruz
Data: 12/10/97
*/
#include<stdio.h>
/* Prototipo da funcao */
int soma(int, int);
/* Funcao Principal */
void fPrincipal(double *resultado)
{
int a=5, b=9;
resultado[0] = soma(a,b);
}
/* Definicao da funcao */
int soma(int a, int b)
{
return a+b;
}
/* FIM */
Depois disso, compile-o usando:
R CMD SHLIB arquivo.c
(preste atencao qual arquivo sera' gerado, pq nao to muito certo de
que em Windows sera' um .so, imagino que seja um DLL).
Carregue o R e use:
dyn.load("arquivo.dll")
x = .C("fPrincipal", double(1))
Abaixo e' o q eu tenho:
> dyn.load("teste.so")
> x = .C("fPrincipal", as.double(1))
> x
[[1]]
[1] 14
O segundo argumento em .C() que vc ve, e' reservando, no R, memoria
para 1 numero real, que o programa em C usa para gravar a resposta.