使用R中m * n数值矩阵的每列的正元素之和创建一个向量

I need to create an R function which takes a numeric matrix A of arbitrary format n*m as input and returns a vector that is as long as A's number of columns that contains the sum of the positive elements of each column. I need to create an R function which takes a nu