R/l_modifiedLinkedStates.R

Defines functions l_modifiedLinkedStates

# check whether the default linkable states are modified

l_modifiedLinkedStates <- function(l_className, vars) {

    linkableStatesVar <- hasDefaultLinkableStatesVar(l_className)

    linkableStatesVar[vapply(linkableStatesVar,
                             function(var) {

                                 var %in% vars

                             }, logical(1L))]
}

Try the loon package in your browser

Any scripts or data that you put into this service are public.

loon documentation built on June 14, 2021, 9:07 a.m.