add test for R_HomeDir

com.oracle.truffle.r.test.native/packages/testrffi/testrffi/R/testrffi.R

@@ -54,3 +54,7 @@ rffi.tryEval <- function(expr, env) {
 	.Call("tryEval", expr, env, PACKAGE = "testrffi")
 }
 
+rffi.rhome_dir <- function() {
+	.Call("rHomeDir", PACKAGE = "testrffi")
+}
+

com.oracle.truffle.r.test.native/packages/testrffi/testrffi/src/testrffi.c

@@ -144,3 +144,8 @@ SEXP tryEval(SEXP expr, SEXP env) {
 	return R_tryEval(expr, env, NULL);
 }
 
+SEXP rHomeDir() {
+	char *dir = R_HomeDir();
+	return ScalarString(mkChar(dir));
+}
+