используя логические ответы в условной функции

Question

Я пытаюсь получить функцию, которая использует некачественные факторы в условном выражении.

Вот мой код.

mTokenScan1 <- c('YMD', 'RPA', 'BNC', 'RPA')
sapply(mTokenScan1, function(x) LogToken_Verify(x, TokenScanKey))

Я хочу, чтобы функция делала это

tCreation <- sapply(mToken, function(x) LogToken_Verify(x, TokenScanKey))
if(tCreation == "aMicrotag" & "aCriteria" & "aSupplier") {
print(token)