R/extras.R

In term: Create, Manipulate and Query Parameter Terms

Defines functions par_pattern as_list_unnamed_default

# FIXME: functions to import from extras
as_list_unnamed_default <- function(x, ...) {
  x <- as.list(x)
  names <- names(x)
  attributes(x) <- NULL
  if(!is.null(names))
    names(x) <- names
  x
}

par_pattern <- function() {
  "[[:alpha:]][[:alnum:]._]*"
}

Try the term package in your browser