max/ourMELONS
1
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

Added vectorizing capability and unit test

Browse source
This commit is contained in:
Waldir Leoncio 2020-03-03 11:04:40 +01:00
parent 317d281e70
commit 2f6ad882a9
2 changed files with 14 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
R/isfield.R
View file

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

12
tests/testthat/test-convertedBaseFunctions.R
View file

@ -100,3 +100,15 @@ test_that("reshape reshapes properly", {
expect_error(reshape(ra, 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))) 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)
)
})