Pruebas de pertenencia

Parte de la sección Lógica y flujo del Journey de R de Coddy. Lección 14 de 64.

x %in% set comprueba cada elemento de x y devuelve un valor lógico por elemento. all() pregunta si todas las comprobaciones son TRUE, y any() si al menos una lo es.

required <- c("flour", "eggs", "milk")
pantry <- c("eggs", "salt", "flour")
print(required %in% pantry)
print(all(required %in% pantry))
print(any(required %in% pantry))

Salida:

[1]  TRUE  TRUE FALSE
[1] FALSE
[1] TRUE

Indexa con la comprobación negada para enumerar lo que falta, en el orden del primer vector:

required <- c("flour", "eggs", "milk", "sugar")
pantry <- c("eggs", "flour")
missing <- required[!(required %in% pantry)]
print(missing)

Salida:

[1] "milk"  "sugar"

setequal(a, b) comprueba si dos vectores contienen los mismos valores, ignorando el orden y las repeticiones:

print(setequal(c("a", "b"), c("b", "a", "a")))
print(setequal(c("a", "b"), c("a", "c")))

Salida:

[1] TRUE
[1] FALSE

En un vector vacío, all() es TRUE y any() es FALSE: como no se requiere nada, no falta nada.

which() convierte un vector lógico en las posiciones de sus valores TRUE, lo que te indica dónde se encuentran las coincidencias:

required <- c("flour", "eggs", "milk")
pantry <- c("eggs")
print(which(!(required %in% pantry)))

Salida:

[1] 1 3

Desafío

Fácil

Completa check_recipe(required, pantry). Devuelve ready cuando todos los ingredientes requeridos estén en la despensa. De lo contrario, devuelve missing: seguido de los ingredientes faltantes, en el orden de required, unidos mediante , .

El código proporcionado lee los ingredientes requeridos y la despensa como líneas separadas por comas e imprime el valor devuelto.

Pruébalo tú mismo

check_recipe <- function(required, pantry) {
  # Escribe tu código aquí
  ""
}

# Código de entrada/salida suministrado: mantenlo tal como está
input <- suppressWarnings(readLines(file("stdin")))
cat(check_recipe(strsplit(input[1], ",")[[1]], strsplit(input[2], ",")[[1]]), sep = "\n")