using logical answers in conditional function

I'm trying to get a function that uses non-qualitative factors in a conditional statement.

Here is my code.

mTokenScan1<- c('YMD', 'RPA', 'BNC', 'RPA')

sapply(mTokenScan1, function(x) LogToken_Verify(x,TokenScanKey))

I want a function to do this

    tCreation<-sapply(mToken, function(x) LogToken_Verify(x,TokenScanKey))

    if(tCreation =="aMicrotag" & "aCriteria" & "aSupplier") {

print(token)