R/findbars.R

In frailtyHL: Frailty Models via Hierarchical Likelihood

findbars <-
structure(function (term) 
{
    if (is.name(term) || !is.language(term)) 
        return(NULL)
    if (term[[1]] == as.name("(")) 
        return(findbars(term[[2]]))
    if (!is.call(term)) 
        stop("term must be of class call")
    if (term[[1]] == as.name("|")) 
        return(term)
    if (length(term) == 2) 
        return(findbars(term[[2]]))
    c(findbars(term[[2]]), findbars(term[[3]]))
}, source = c("function (term) ", "{", "    if (is.name(term) || !is.language(term)) ", 
"        return(NULL)", "    if (term[[1]] == as.name(\"(\")) ", 
"        return(findbars(term[[2]]))", "    if (!is.call(term)) ", 
"        stop(\"term must be of class call\")", "    if (term[[1]] == as.name(\"|\")) ", 
"        return(term)", "    if (length(term) == 2) ", "        return(findbars(term[[2]]))", 
"    c(findbars(term[[2]]), findbars(term[[3]]))", "}"))