From 5ccdfd7bfb7c97c20205db14c74e9983be778c97 Mon Sep 17 00:00:00 2001 From: Gertjan van den Burg Date: Fri, 31 Jul 2015 13:48:54 +0200 Subject: allow sourcing SyncRNG.R from a non-local directory --- SyncRNG.R | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/SyncRNG.R b/SyncRNG.R index ca25eef..2fbb160 100644 --- a/SyncRNG.R +++ b/SyncRNG.R @@ -1,6 +1,9 @@ library(methods) -dyn.load('RSyncRNG.so') +script.dir <- normalizePath(dirname(sys.frame(1)$ofile)) +source.file <- paste(script.dir, '/', 'RSyncRNG.so', sep='') + +dyn.load(source.file) SyncRNG <- setRefClass('SyncRNG', fields=list( -- cgit v1.2.3