R - Add support for std::vector<std::vector<std::string>>

Closes #2385
2022-10-17 20:13:32 +01:00 · 2022-10-17 20:13:32 +01:00 · d8a0286012
commit d8a0286012
parent d58eb86821
6 changed files with 128 additions and 5 deletions
--- a/Examples/test-suite/r/unittest.R
+++ b/Examples/test-suite/r/unittest.R
@ -1,8 +1,8 @@
 unittest <- function (x,y) {
  if (all(x==y)) {
-    print("PASS") 
+    print("PASS")
  } else {
-    print("FAIL") 
+    print("FAIL")
    stop("Test failed")
  }
 }
@ -15,3 +15,12 @@ unittesttol <- function(x,y,z) {
    stop("Test failed")
  }
 }
+
+unittest_sequence <- function (x,y) {
+  if (setequal(x, y)) {
+    print("PASS")
+  } else {
+    print("FAIL")
+    stop("Test failed")
+  }
+}