Array pointer extraction

NEWS.md

@@ -1,5 +1,7 @@
 # rSharp (development version)
 
+- Arrays of .NET objects are now supported as arguments to methods.
+
 # rSharp 1.1.2
 
 ## Minor improvements and bug fixes

R/rSharp-internal.R

@@ -67,6 +67,15 @@
     if (inherits(args[[i]], "NetObject")) {
       args[[i]] <- args[[i]]$pointer
     }
+    # Check if the entry is a list. If so, check if the first element is a NetObject
+    # and extract the pointers for all elements
+    if (is.list(args[[i]]) && length(args[[i]]) > 0) {
+      if (inherits(args[[i]][[1]], "NetObject")) {
+        args[[i]] <- lapply(args[[i]], function(x) {
+          if (inherits(x, "NetObject")) x$pointer else x
+        })
+      }
+    }
   }
   return(args)
 }

shared/ClrFacade/TestCases.cs

@@ -14,6 +14,25 @@ namespace ClrFacade;
 // Do not change the names or signatures without also updating usages in R
 public class TestCases
 {
+   public static bool SingleObjectArgument(TestObject arg)
+   {
+      return arg != null && arg.GetType() == typeof(TestObject);
+   }
+
+   public static bool ArrayOfObjectsArgument(TestObject[] arg)
+   {
+      if (arg == null)
+         return false;
+
+      for (var i = 0; i < arg.Length; i++)
+      {
+         if (arg[i] == null || arg[i].GetType() != typeof(TestObject))
+            return false;
+      }
+
+      return true;
+   }
+
    public static bool GetTrue()
    {
       return true;

tests/testthat/test-net-object.R

@@ -252,3 +252,23 @@ test_that("Deprecated printing methods show appropriate warnings", {
     class = "lifecycle_warning_deprecated"
   )
 })
+
+test_that("A NetObject can be passed as argument to callStatic", {
+  testObj <- newObjectFromName(rSharpEnv$testObjectTypeName)
+
+  expect_true(callTestCase(
+    "SingleObjectArgument",
+    testObj
+  ))
+})
+
+test_that("An array of NetObjects can be passed as argument to callStatic", {
+  testObj1 <- newObjectFromName(rSharpEnv$testObjectTypeName)
+  testObj2 <- newObjectFromName(rSharpEnv$testObjectTypeName)
+  testArray <- array(c(testObj1, testObj2), dim = c(2))
+
+  expect_true(callTestCase(
+    "ArrayOfObjectsArgument",
+    testArray
+  ))
+})

vignettes/user-guide.Rmd

@@ -46,7 +46,7 @@ to interact with these objects through the `NetObject`. If, for any reason,
 the user needs to access the raw pointer, it can be done by accessing the field 
 `$pointer` of the R6 object.
 
-`NetObject` instances can be passed to .NET methods as arguments.
+`NetObject` instances can be passed to .NET methods as arguments. If a method expects an array of .NET objects, all objects within the R list must be instances of `NetObject`. Mixed lists of native R types and `NetObject` instances are not supported.
 
 ## Loading an assembly