rename copy() to copyObject()

Author: eddelbuettel

ChangeLog

@@ -6,6 +6,14 @@
         * ChangeLog: Added entries for PRs 453 and 454
         * inst/NEWS.Rd: Add two missing \item uses
 
+        * R/Module.R: Rename copy to copyObject to avoid function name collisions
+        * inst/unitTests/runit.Module.R: Ditto
+        * man/copyObject.Rd: Ditto
+        * inst/NEWS.Rd: Ditto
+        * NAMESPACE: Ditto
+
+        * inst/unitTests/runit.environments.R: Skip test.environment.child test
+
 2016-03-31  Romain Francois <[email protected]>
 
         * R/Modules.R: New top-level functions copy, destruct and is_destructed
@@ -31,7 +39,7 @@
 
 2016-03-27  Qin Wenfeng  <[email protected]>
 
-        * R/Attributes.R: Support R 3.3.0 Windows new toolchain
+        * R/Attributes.R: Support new R 3.3.0 Windows toolchain
 
 2016-03-26  Dirk Eddelbuettel  <[email protected]>
 

NAMESPACE

@@ -32,7 +32,7 @@ export(Module,
        cpp_object_initializer,
        cpp_object_dummy,
        Rcpp.plugin.maker,
-       copy,
+       copyObject,
        destruct,
        is_destructed
        )

R/Module.R

@@ -16,15 +16,15 @@
 # along with Rcpp.  If not, see <http://www.gnu.org/licenses/>.
 
 internal_function <- function(pointer){
-	f <- function(xp){
-		force(xp)
-		function(...){
-			.External( InternalFunction_invoke, xp, ... )
-		}
-	}
-	o <- new( "C++Function", f(pointer) )
-	o@pointer <- pointer
-	o
+    f <- function(xp){
+        force(xp)
+        function(...){
+            .External( InternalFunction_invoke, xp, ... )
+        }
+    }
+    o <- new( "C++Function", f(pointer) )
+    o@pointer <- pointer
+    o
 }
 
 setMethod("$", "C++Class", function(x, name) {
@@ -42,8 +42,8 @@ setMethod("$", "C++Class", function(x, name) {
 .getModulePointer <- function(module, mustStart = TRUE) {
     pointer <- get("pointer", envir = as.environment(module))
     if(is.null(pointer) && mustStart) {
-## should be (except for bug noted in identical())
-##    if(identical(pointer, .badModulePointer) && mustStart) {
+        ## should be (except for bug noted in identical())
+        ##    if(identical(pointer, .badModulePointer) && mustStart) {
         Module(module, mustStart = TRUE) # will either initialize pointer or throw error
         pointer <- get("pointer", envir = as.environment(module))
     }
@@ -438,15 +438,15 @@ cpp_fields <- function( CLASS, where){
 .CppClassName <- function(name)
     paste0("Rcpp_",name)
 
-copy <- function( obj ){
-		.Call(copy_constructor, obj$.cppclass, obj$.pointer )
+copyObject <- function( obj ){
+    .Call(copy_constructor, obj$.cppclass, obj$.pointer )
 }
 
 destruct <- function(obj){
-		.Call(destructor, obj$.cppclass, obj$.pointer)
-		invisible(NULL)
+    .Call(destructor, obj$.cppclass, obj$.pointer)
+    invisible(NULL)
 }
 
 is_destructed <- function(obj){
-		.Call(is_destructed_impl, obj$.pointer)
+    .Call(is_destructed_impl, obj$.pointer)
 }

inst/NEWS.Rd

@@ -12,17 +12,18 @@
     }
     \item Changes in Rcpp Attributes:
     \itemize{
-      \item R 3.3.0 Windows with Rtools 3.3 is now supported (Qin Wenfeng in PR \ghpr{451}).
+      \item R 3.3.0 Windows with Rtools 3.3 is now supported (Qin Wenfeng in PR
+      \ghpr{451}). 
     }
     \item Changes in Rcpp Modules:
     \itemize{
-      \item New function \code{copy} to invoke the copy constructor of a
-      C++ class that has been exposed by modules.
+      \item New function \code{copyObject} to invoke the copy constructor of a
+      C++ class that has been exposed by modules. (\ghpr{454})
       \item New function \code{destruct} to explicitely call the
       destructor of the underlying C++ object without waiting for the
-      garbage collector.
+      garbage collector. (\ghpr{454})
       \item New function \code{is\_destructed} to check if an object has been
-      destructed (presumably by \code{destruct} )
+      destructed (presumably by \code{destruct}) (Romain in \ghpr{454})
     }
   }
 }

inst/unitTests/runit.Module.R

@@ -96,7 +96,7 @@ if( .runThisTest && Rcpp:::capabilities()[["Rcpp modules"]] ) {
 
     test.Module.copy.constructor <- function(){
         f <- new( ModuleCopyConstructor, 2L)
-        g <- copy(f)
+        g <- copyObject(f)
         checkEquals( f$x, g$x )
         checkTrue( !identical(f$.pointer, g$.pointer) )
         g$x <- 4L

man/copy.Rd renamed to man/copyObject.Rd

@@ -1,5 +1,5 @@
-\name{copy}
-\alias{copy}
+\name{copyObject}
+\alias{copyObject}
 \title{
   Invokes the copy constructor of the C++ class
 }
@@ -9,7 +9,7 @@
   constructor.
 }
 \usage{
-  copy(obj)
+  copyObject(obj)
 }
 \arguments{
   \item{obj}{A C++ object from a class exposed by an Rcpp module}
@@ -42,7 +42,7 @@
   }
   ')
   f <- new( Foo, 1 )
-  g <- copy(f)
+  g <- copyObject(f)
 
   # f and g have the same value for the x field
   f$x == g$x