Make imports with leading dot always relative

Fix #18.
klmr · Jun 17, 2014 · fc89277 · fc89277
1 parent 8a3f337
commit fc89277
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/R/find_module.r b/R/find_module.r
@@ -18,7 +18,11 @@ find_module = function (module) {
     module_path = do.call(file.path, as.list(prefix))
     file_pattern = sprintf('^%s\\.[rR]$', suffix)
 
-    candidate_paths = file.path(import_search_path(), module_path)
+    search_path = if (parts[1] %in% c('.', '..'))
+        module_base_path(environment())
+    else
+        import_search_path()
+    candidate_paths = file.path(search_path, module_path)
 
     # For each candidate, try finding a module file. A module file is either
     # `{suffix}.r` or `{suffix}/__init__.r`, preceded by the path prefix.