https://github.com/cran/spatstat
Revision 915786b60d089debd144a92c457952ebe8503995 authored by Adrian Baddeley on 14 May 2010, 00:00:00 UTC, committed by Gabor Csardi on 14 May 2010, 00:00:00 UTC
1 parent e1a5e08
Tip revision: 915786b60d089debd144a92c457952ebe8503995 authored by Adrian Baddeley on 14 May 2010, 00:00:00 UTC
version 1.19-0
version 1.19-0
Tip revision: 915786b
resolve.defaults.R
#
# resolve.defaults.R
#
# $Revision: 1.6 $ $Date: 2007/02/26 05:56:44 $
#
# Resolve conflicts between several sets of defaults
# Usage:
# resolve.defaults(list1, list2, list3, .......)
# where the earlier lists have priority
#
resolve.defaults <- function(..., .StripNull=FALSE) {
arglist <- list(...)
argue <- list()
if((n <- length(arglist)) > 0) {
for(i in seq(n))
argue <- append(argue, arglist[[i]])
}
if(!is.null(nam <- names(argue))) {
named <- (nam != "")
arg.unnamed <- argue[!named]
arg.named <- argue[named]
if(any(discard <- duplicated(names(arg.named))))
arg.named <- arg.named[!discard]
argue <- append(arg.unnamed, arg.named)
}
if(.StripNull) {
isnull <- sapply(argue, is.null)
argue <- argue[!isnull]
}
return(argue)
}
do.call.matched <- function(fname, arglist, funargs, extrargs=NULL) {
fun <- get(fname, mode="function")
if(!is.function(fun))
stop(paste("internal error: function", sQuote(fname), "not found",
sep=""))
if(missing(funargs))
funargs <- names(formals(fun))
funargs <- c(funargs, extrargs)
givenargs <- names(arglist)
matched <- givenargs %in% funargs
do.call(fname, arglist[matched])
}
![swh spinner](/static/img/swh-spinner.gif)
Computing file changes ...