How to keep significant variable results within a lapply formula for univariable analysis

Something along the following lines

bogie <- 0.15
make_bogie <- function() summary(glm(cyl ~ mpg, data = mtcars, family = poisson(link = "log")))$coefficients[2,4] <= bogie

#> [1] TRUE

is all I can offer without a reprex. See the FAQ: How to do a minimal reproducible example reprex for beginners.