如何使用dplyr按行求和n个最高值而不重塑？

我想根据数据框每行的n 个最高值创建一个新列。

以下面的例子为例：

library(tibble)
df <- tribble(~name, ~q_1, ~q_2, ~q_3, ~sum_top_2,
              "a", 4, 1, 5, 9,
              "b", 2, 8, 9, 17)

这里，sum_top_2列对以“ q_ ”为前缀的列的 2 个最高值求和。我想按行概括为n 个最高值。我如何在dplyr不重塑的情况下做到这一点？