我正在使用以下代码在R中运行多个单变量logistic回归：

glm_function <- function(y) summary(glm(HPVI_ANY~y,data = discovery,family = "binomial"))
uni_reg <- lapply(discovery[,2:109],glm_function)

其中glm_function是在我的结果变量（HPVI_any）和y之间运行逻辑回归的函数。然后，我使用lapply在结果和预测变量之间进行逻辑回归，其中预测变量是我的数据集中的第2列至第109列（称为发现）。

我最终得到一个列表：uni_reg。我想做的是创建一个数据框，其中包含每个单变量logistic回归的键值，例如估算值，p值等。我可以使用以下代码一个一个地检索它：

 uni_reg$predictor_name$coefficients

我想编写一个对每个变量执行此操作并提取系数的函数，然后将其添加到数据帧中。任何帮助表示赞赏。谢谢。