Added vectorizing capability and unit test

R/isfield.R

@@ -4,6 +4,7 @@
 #' @param x list
 #' @param field name of field
 #' @references https://se.mathworks.com/help/matlab/ref/isfield.html
+#' @export
 isfield <- function(x, field) {
-    field %in% names(x)
+    sapply(field, function(f) f %in% names(x))
 }

tests/testthat/test-convertedBaseFunctions.R

@@ -99,4 +99,16 @@ test_that("reshape reshapes properly", {
     expect_error(reshape(mx, c(1, 2, 3)))
     expect_error(reshape(ra, c(1, 2, 3)))
     expect_equal(reshape(ra, c(3, 2, 2)), array(ra, c(3, 2, 2)))
+})
+
+test_that("isfield works as on Matlab", {
+    S <- list()
+    S$x <- rnorm(100)
+    S$y <- sin(S$x)
+    S$title <- "y = sin(x)"
+    expect_true(isfield(S, "title"))
+    expect_equivalent(
+        object = isfield(S, c("x", "y", "z", "title", "error")),
+        expected = c(TRUE, TRUE, FALSE, TRUE, FALSE)
+    )
 })