tests/testthat/test_packages/unusual_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.