Merge pull request #94 from syberia/replace_project_active_binding

Replace project active binding

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: syberia
 Type: Package
 Title: Syberia
-Version: 0.6.1
+Version: 0.6.1.9000
 Description: Syberia is a meta-framework for R that allows for on-the-fly
     creation of concrete frameworks for constructing arbitrary software.
     In its current formulation, the modeling engine provides an opiniated

NAMESPACE

@@ -7,8 +7,6 @@ S3method(should_exclude,syberia_engine)
 export("%||%")
 export(active_project)
 export(build_engine)
-export(project)
-export(resource)
 export(should_exclude)
 export(syberia_engine)
 export(syberia_project)

R/engine.R

@@ -140,18 +140,6 @@ active_project <- function() {
   .syberia_env$active_project
 }
 
-#' @rdname active_project
-#' @name project
-#' @export
-makeActiveBinding("project", function() active_project(), env = environment())
-
-#' Compile a resource in the active syberia project.
-#'
-#' @seealso \code{\link{active_project}}
-#' @name resource
-#' @export
-makeActiveBinding("resource", function() active_project()$resource, env = environment())
-
 syberia_engine_ <- function(filepath, ...) {
   UseMethod("syberia_engine_", filepath)
 }

R/zzz.R

@@ -17,6 +17,11 @@
     }
     library(bettertrace)
   }
+
+  makeActiveBinding("project", env = globalenv(),
+    function() getFromNamespace("active_project", "syberia")())
+  makeActiveBinding("resource", env = globalenv(),
+    function() getFromNamespace("active_project", "syberia")()$resource)
 
   # We want to initialize a Syberia project in the current working directory
   # because 9 times out of 10 this is what the user wants.
@@ -34,7 +39,12 @@
 }
 
 .onDetach <- function(...) {
+  try(silent = TRUE, detach("syberia:shims"))
   # TODO: (RK) Detach any environments attached to the search path
   # by the active project.
 }
 
+.onUnload <- function(...) {
+  try(silent = TRUE, detach("syberia:shims"))
+}
+

README.md

@@ -86,6 +86,17 @@ in conjunction with Syberia modeling projects include
 [testthatsomemore](https://github.com/robertzk/testthatsomemore), and
 [treeskeleton](https://github.com/robertzk/treeskeleton).
 
+### Development
+
+To run the tests for the Syberia package, you will have to check
+out its git submodules.
+
+```
+git submodule update --init --recursive
+```
+
+This will pull in `inst/engines/base.sy` from the [base engine](http://github.com/syberia/base.sy).
+
 ### License
 
 This project is licensed under the MIT License:

man/active_project.Rd

@@ -2,7 +2,6 @@
 % Please edit documentation in R/engine.R
 \name{active_project}
 \alias{active_project}
-\alias{project}
 \title{The current active Syberia project.}
 \usage{
 active_project()