如何对R中多列的绝对值求和

Question

我想具有多个具有某些特征的列的绝对值之和，说它们的名称以_s结尾。

set.seed(154)
d <- data.frame(a_s = sample(-10:10,6,replace=F),b_s = sample(-5:10,6,replace=F), c = sample(-10:5,6,replace=F))
d$s <- abs(d$a_s)+abs(d$b_s)

其中输出是下面的列s：

  a_s b_s  c  s
    4   8 -2 12
   10   6 -8 16
  -10  -1  1 11
    0   2  4  2
    5   1 -3  6
    8  -5  5 13

我可以使用d$ss <- rowSums(d[,grepl('_s',colnames(d))])对值求和，但不能对绝对值求和。