R/num_over_zero.R

In peterhurford/surveytools2: Surveytools2 is a collection of R functions that make working with dplyr on survey analysis just a little bit better. Inspired by dplyr and my previous surveytools package.

#' Calculate the number of positive values in a variable.
#'
#' @param x numeric. The variable to calculate.
#' @param na.rm logical. Whether or not to remove NAs when calculating the sum.
#' @export
num_over_zero <- function(x, na.rm = FALSE) { sum(x > 0, na.rm = na.rm) }