# ATOMIC VECTORS
v <- c( ay=1, bee=2, cee=3 )
sv <- searchable( v, ignore.case )
sv$BEE
sv[[ "b" ]] # 2
sv[[ "B" ]] # 2
sv[[ ignore.case('BEE') ]] # 2
sv[[ fixed('b') ]] # 2
sv[ 'bee' ]
sv[ 'ee' ] #
sv[ perl('[A|B]') ] # 1,2
# RECURSIVE LISTS
l <- list( ay=c(1), bee=c(2), cee=3 )
sl <- searchable(l, ignore.case )
sl$BEE # 1 2
sl[[ "b" ]] # 1 2
sl[[ "B" ]] # 1 2
sl[[ ignore.case('BEE') ]] # 1 2
sl[[ fixed('b') ]] # 1 2
sl[ 'bee' ]
sl[ 'ee' ] # 1 1 2
sl[ perl('[a|b]') ] # 1 1 2Run the code above in your browser using DataLab