R/std.R

In searchable: Tools for Custom Searches / Subsets / Slices of Named R Objects

#' Use/revert to standard matching
#' 
#' Creates or modifies the search type to use default R matching 
#' 
#' @param object to make specification 
#' @param ... additional arguments passes to \code{\link{pattern}}
#' 
#' \code{std}
#' 
#' @seealso 
#'   \code{\link{pattern}}
#' 
#' @examples
#'   pat <- std("a") 
#'   detect( c('alpha','beta'), pat )
#'   

#' @rdname std
#' @export
   std <- function( object, ... )  UseMethod('std')
  

#' @rdname std
#' @export
   std.default  <- function( object, ... ) pattern( as.character(object), 'std', ... )


#' @rdname std
#' @export
   std.character  <- function( object, ... ) pattern( object, 'std', ... )


#' @rdname std
#' @export
#  Note: an alternative is to clobber the options
   std.SearchableOrPattern  <- function( object, ... ) {
     object@type = 'std'
     object@options = list(...)
     return(object)
   }