#' Lookup and entry in an object with names
#'
#' @param x string; one-element character vector
#'
#' @param dict object that has a names attribute that is used to look up the
#' associated values.
#'
#' @param missing value to return if the value cannot be found, (DEFAULT: NA)
#'
#' Looks up and returns the item(s) in \code{dict} matching the pattern
#' given by \code{x}. If there is no matrching name found, the value provided
#' in the \code{missing} argument is used.
#'
#' It is not uncommon to set \code{missing} to
#'
#' @return
#' one or more values looked up by name in the dictionary. There is no
#' guarantee that there will be only one item returned per-lookup
#'
#' @seealso
#'
#' \code{\link[searchable]{extract}} which is used internally to match
#' names
#'
#' @examples
#' dict <- 1:26
#' names(dict) <- letters
#' dict <- searchable(dict)
#' dict <- ignore.case(dict)
#'
#' lookup( ignore.case('M'), dict ) # 13
#' lookup( 'M', dict ) # NA
#' lookup( 'M', dict, 'M' ) # M
#'
#' @export
lookup <- function( x, dict=getOption('dictionary',abbreviations), missing=NA ) {
message( "'lookup' is deprecated, use standard accessors instead. See the 'searchable' package for details." )
# browser()
# wh <- searchable:::.matches( dict, x %>% pattern )
# ret <- dict[ x ]
# if(all(!wh)) return(missing)
return( dict[x] )
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.