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

f5 <- function(x) {
  cat(sprintf(
    ngettext(length(x), msg1 = "small fail ", msg2 = "big fail ")
  ))
}

Try the potools package in your browser

Any scripts or data that you put into this service are public.

potools documentation built on Nov. 2, 2023, 5:20 p.m.