Ecfun (version 0.2-0)

getElement2: Extract a named element from an object with a default

Description

Get element name of object. If object does not have an element name, return default.

If the name element of object is NULL the result depends on warn.NULL: If TRUE, issue a warning and return default. Otherwise, return NULL

Usage

getElement2(object, name=1, default=NA, warn.NULL=TRUE, 
            envir=list(), returnName)

Arguments

object

object from which to extract component name.

name

Name or index of the element to extract

default

default value if name is not part of object.

warn.NULL

logical to decide how to treat cases where object has a component name: If TRUE, return default with a warning. Otherwise, return NULL.

envir

Supplemental list beyond object in which to look for names in case object[[name]] is a language object that must be evaluated.

returnName

logical: TRUE to return as.character of any name found as an element of object.

FALSE to eval any name found in the environment of object.

Default = TRUE if name == 1 or a character string matching the name of the first element of object.

Value

an object of the form of object[[name]]; if object does not have an element or slot name, return default.

Details

1. If is.numeric(name) In <- (1 <= name <= length(object))

2. else In <- if(name %in% names(object))

3. El <- if(In) object[[name]] else default

4. warn.NULL?

5. if(returnName) return(as.character(El)) else return(eval(El, envir=object))

See Also

getElement, which also can return slots from S4 objects.

Examples

# NOT RUN {
##
## 1.  name in object, return 
##
e1 <- getElement2(list(ab=1), 'ab', 2) # 1
# check 
# }
# NOT RUN {
all.equal(e1, 1)
# }
# NOT RUN {
##
## 2.  name not in object, return default
##
eNA <- getElement2(list(), 'ab') # default default = NA
# check 
# }
# NOT RUN {
all.equal(eNA, NA)
# }
# NOT RUN {
e0 <- getElement2(list(), 'ab', 2) # name not in object
# }
# NOT RUN {
all.equal(e0, 2)
# }
# NOT RUN {
e2 <- getElement2(list(ab=1), 'a', 2) # partial matching not used 
# }
# NOT RUN {
all.equal(e2, 2)
# }
# NOT RUN {
##
## 3.  name NULL in object, return default 
##
ed <- getElement2(list(a=NULL), 'a',2) # 2 with a warning
# }
# NOT RUN {
all.equal(ed, 2)
# }
# NOT RUN {
e. <- getElement2(list(a=NULL), 'a', 2, warn.NULL=FALSE) # NULL
# }
# NOT RUN {
all.equal(e., NULL)
# }
# NOT RUN {
eNULL <- getElement2(list(a=NULL), 'a', NULL) # NULL
# }
# NOT RUN {
all.equal(eNULL, NULL)
# }
# NOT RUN {
##
## 4.  Language:  find, eval, return 
##
Qte <- quote(plot(1:4, y=x, col=c2))
if(require(pryr)){ 
  Qt <- pryr::standardise_call(Qte) # add the name 'x' 
  fn <- getElement2(Qt)
  eQuote <- getElement2(Qt, 'y')
  Col2 <- getElement2(Qt, 'col', envir=list(c2=2))
# check
# }
# NOT RUN {
  all.equal(fn, 'plot')
# }
# NOT RUN {
  all.equal(eQuote, 1:4)
# }
# NOT RUN {
  all.equal(Col2, 2)
# }
# NOT RUN {
}
# }