r - 将 R 中的摘要添加到 Excel

Question

我想做一些数据分析并将结果写入excel文件。我知道如何添加 dataFrame 但我不知道如何将对象的摘要添加到工作表中

例如，假设我有一个 dataFrame dF

Pr <- lm(Power~a + b + c,data = dF)  
r <- predict(Pr,interval="prediction")
r<-data.frame(r)

Excel1 <- createWorkbook()
Data <- createSheet(Excel1, sheetName = "Data")
Result <- createSheet(Excel1, sheetName = "Results")
Summary <- createSheet(Excel1, sheetName = "Summary")
addDataFrame(dF,Data)
addDataFrame(r,Result)

saveWorkbook(Excel1, "Excel1")

现在如何将 summary(Pr) 添加到工作表“Summary”中？请帮忙