From 49680032d98a78964c76f04bf8d1fec501612147 Mon Sep 17 00:00:00 2001
From: Gertjan van den Burg <burg@ese.eur.nl>
Date: Fri, 31 Jul 2015 14:34:54 +0200
Subject: more reliable way to import SyncRNG from R

---
 SyncRNG.R | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'SyncRNG.R')

diff --git a/SyncRNG.R b/SyncRNG.R
index 2fbb160..90e6fd5 100644
--- a/SyncRNG.R
+++ b/SyncRNG.R
@@ -1,6 +1,9 @@
 library(methods)
 
-script.dir <- normalizePath(dirname(sys.frame(1)$ofile))
+frame.files <- lapply(sys.frames(), function(x) x$ofile)
+frame.files <- Filter(Negate(is.null), frame.files)
+
+script.dir <- normalizePath(dirname(frame.files[[length(frame.files)]]))
 source.file <- paste(script.dir, '/', 'RSyncRNG.so', sep='')
 
 dyn.load(source.file)
-- 
cgit v1.2.3