co <- container(a = 1, 2, b = 3)
c(1, 3, 5) %in% co # TRUE TRUE FALSE
c(x = 1, y = 2, z = 9) %in% co # c(x = TRUE, y = TRUE, z = FALSE)
list(x = 1, y = 2, z = 9) %in% co # c(x = TRUE, y = TRUE, z = FALSE)
co2 <- container(a = NA, b = 2)
v <- c(x = 1, y = NA_real_, z = 2)
v %in% co2 # c(x = FALSE, y = FALSE, z = TRUE)
co2 %in% v # c(a = FALSE, b = TRUE)
Run the code above in your browser using DataLab