[R-br] Remover NULL de um output da função lapply

Bom dia pessoal, gostaria de saber como remover os NULL do CMR abaixo. x=c("b","a","c") u=lapply(1:3,function(i){ if(x[i]=="a"){ 1} } ) att. Tiago. ################################################################# Tiago de Souza Marçal - Graduando em Agronomia pelo CCA-UFES Bolsista de Iniciação Científica da área de Genética e Melhoramento de Plantas #################################################################