即使存储到变量，arules包中的apriori调用也会写入输出;怎么预防？

Question

我有这个基本示例，我试图将apriori调用的输出存储到变量中。但是，我仍然得到控制台输出。我需要在数千个场景中运行它，并且不希望此输出显示出来。

有没有办法避免它？

library(arules)
df <- data.frame(basket = c(1, 1, 2, 2, 2), item = c('a', 'b', 'a', 'b', 'c'))
as <- as(split(df[, 'item'], df[, 'basket']), 'transactions')
ar <- apriori(as, list(target = 'frequent itemsets'))