Fix using a custom rule (#457)

* Fix using a custom rule

`ifelse()` is unsafe because it silently only returns the first element of `no` if `test` is of length 1.

* Add space before parenthesis

---------

Co-authored-by: Brenton M. Wiernik <bwiernik@users.noreply.github.com>
Co-authored-by: Rémi Thériault <13123390+rempsyc@users.noreply.github.com>

Author: 3 people

R/report_htest_ttest.R

@@ -48,7 +48,7 @@
   table <- do.call(effectsize::effectsize, es_args)
   ci <- attributes(table)$ci
   estimate <- names(table)[1]
-  dot_args$rules <- ifelse(is.null(dot_args$rules), rules, dot_args$rules)
+  dot_args$rules <- if (is.null(dot_args$rules)) rules else dot_args$rules
 
   es_args <- c(list(table), dot_args)
   interpretation <- do.call(effectsize::interpret, es_args)$Interpretation