tests/testthat/test_packages/r_msg/R/windows/bar.R

f5 <- function(x) {
  cat(sprintf(
    ngettext(length(x), msg1 = "small fail", msg2 = "big fail")
  ))
}
MichaelChirico/potools documentation built on June 29, 2024, 3:16 p.m.