Parallelized sparse matrix rowSums in R (or Rcpp)

Question

For the simple task of summing up all rows in a sparse matrix in R, Matrix::rowSums() does a great job:

library(Matrix)    
m <- rsparsematrix