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,13 @@
     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 axtract 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) x$pointer)
+      }
+    }
   }
   return(args)
 }

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