Check that inputs to col_binomial are binary when summarising

[kinto-b]

At this point:

projectable/R/col_binomial.R

Lines 40 to 44 in 6045864

	if (!summarised) {
	# Summarise unsummarised inputs
	n <- sum(n, na.rm = TRUE)
	N <- sum(N, na.rm = TRUE)
	}

we want to do something like this:

   n <- as.integer(n)
   N <- as.integer(N)

 if (!summarised) { 
   bad_vals <- setdiff(unique(n), 0:1)
   if (length(bad_vals) > 0) stop("`n` must be binary") 

   n <- sum(n, na.rm = TRUE) 
   N <- sum(N, na.rm = TRUE) 
 } 

Possibly we want to do the same for N, although if we do that then we cannot write:

b_trials <- stats::rbinom(1000, 1, 0.5)
col_binomial(b_trials, length(b_trials))

We would have to write

b_trials <- stats::rbinom(1000, 1, 0.5)
col_binomial(b_trials, b_trials %in% 0:1)