findbars(f1 <- Reaction ~ Days + (Days|Subject))
## => list( Days | Subject )
findbars(y ~ Days + (1|Subject) + (0+Days|Subject))
## => list of length 2: list ( 1 | Subject , 0+Days|Subject)
findbars(~ 1 + (1|batch/cask))
## => list of length 2: list ( 1 | cask:batch , 1 | batch)
stopifnot(identical(findbars(f1),
list(expression(Days | Subject)[[1]])))
Run the code above in your browser using DataCamp Workspace