Merge pull request #6 from terceiro/r-home

alexgutteridge · alexgutteridge · commit 66b9c0f32f5c · 2011-11-29T02:07:05.000-08:00
Embed the R directory in the compiled extension
diff --git a/ext/extconf.rb b/ext/extconf.rb
@@ -26,4 +26,13 @@
   exit 1
 end
 
+File.open("config.h", "w") do |f|
+  f.puts("#ifndef R_CONFIG_H")
+  f.puts("#define R_CONFIG_H")
+  r_home = $configure_args.has_key?('--with-R-dir') ? $configure_args['--with-R-dir'].inspect : 'NULL'
+  f.puts("#define RSRUBY_R_HOME #{r_home}")
+  f.puts("#endif")
+end
+$extconf_h = 'config.h'
+
 create_makefile("rsruby_c")
diff --git a/ext/rsruby.c b/ext/rsruby.c
@@ -30,6 +30,8 @@
 */
 
 #include "rsruby.h"
+#include "config.h"
+#include <stdlib.h>
 
 /* Global list to protect R objects from garbage collection */
 /* This is inspired in $R_SRC/src/main/memory.c */
@@ -139,6 +141,9 @@ void init_R(int argc, char **argv){
 
   char *defaultArgv[] = {"rsruby","-q","--vanilla"};
 
+  if (RSRUBY_R_HOME) {
+    setenv("R_HOME", RSRUBY_R_HOME, 0);
+  }
   Rf_initEmbeddedR(sizeof(defaultArgv) / sizeof(defaultArgv[0]), defaultArgv);
   R_Interactive = FALSE; //Remove crash menu (and other interactive R features)
 }
