Code
for (n in 0:2) cli_text("{n} package{?s}")
Message
0 packages
1 package
2 packages
Code
for (n in 0:2) print(pluralize("{n} package{?s}"))
Output
0 packages
1 package
2 packages
Code
for (n in 0:2) cli_text("{n} dictionar{?y/ies}")
Message
0 dictionaries
1 dictionary
2 dictionaries
Code
for (n in 0:2) print(pluralize("{n} dictionar{?y/ies}"))
Output
0 dictionaries
1 dictionary
2 dictionaries
Code
for (n in 0:2) cli_text("{n} package{?s} {?is/are} ...")
Message
0 packages are ...
1 package is ...
2 packages are ...
Code
for (n in 0:2) print(pluralize("{n} package{?s} {?is/are} ..."))
Output
0 packages are ...
1 package is ...
2 packages are ...
Code
for (m in 0:2) for (n in 0:2) cli_text("{m} package{?s} and {n} folder{?s}")
Message
0 packages and 0 folders
0 packages and 1 folder
0 packages and 2 folders
1 package and 0 folders
1 package and 1 folder
1 package and 2 folders
2 packages and 0 folders
2 packages and 1 folder
2 packages and 2 folders
Code
for (m in 0:2) for (n in 0:2) print(pluralize(
"{m} package{?s} and {n} folder{?s}"))
Output
0 packages and 0 folders
0 packages and 1 folder
0 packages and 2 folders
1 package and 0 folders
1 package and 1 folder
1 package and 2 folders
2 packages and 0 folders
2 packages and 1 folder
2 packages and 2 folders
Code
for (n in 0:2) cli_text("{no(n)} package{?s}")
Message
no packages
1 package
2 packages
Code
for (n in 0:2) print(pluralize("{no(n)} package{?s}"))
Output
no packages
1 package
2 packages
Code
for (n in 0:2) cli_text("{qty(n)}There {?is/are} {n} package{?s}")
Message
There are 0 packages
There is 1 package
There are 2 packages
Code
for (n in 0:2) print(pluralize("{qty(n)}There {?is/are} {n} package{?s}"))
Output
There are 0 packages
There is 1 package
There are 2 packages
Code
pkgs <- (function(n) glue::glue("pkg{seq_len(n)}"))
for (n in 1:3) cli_text("The {pkgs(n)} package{?s}")
Message
The pkg1 package
The pkg1 and pkg2 packages
The pkg1, pkg2, and pkg3 packages
Code
for (n in 1:3) print(pluralize("The {pkgs(n)} package{?s}"))
Output
The pkg1 package
The pkg1 and pkg2 packages
The pkg1, pkg2, and pkg3 packages
Code
special_style <- list(span.foo = list(before = "<", after = ">"))
cli_div(theme = special_style)
for (n in 0:2) cli_text("{n} {.foo package{?s}}")
Message
0 packages
1 package
2 packages
Code
pkgs <- (function(n) glue::glue("pkg{seq_len(n)}"))
for (n in 1:3) cli_text("The {.foo {pkgs(n)}} package{?s}")
Message
The pkg1 package
The pkg1 and pkg2 packages
The pkg1, pkg2, and pkg3 packages
Code
for (n in 0:2) cli_text("Package{?s}: {n}")
Message
Packages: 0
Package: 1
Packages: 2
Code
pkgs <- (function(n) glue::glue("pkg{seq_len(n)}"))
for (n in 1:2) cli_text("Package{?s}: {pkgs(n)}")
Message
Package: pkg1
Packages: pkg1 and pkg2
Code
for (n in 1:2) print(pluralize("Package{?s}: {pkgs(n)}"))
Output
Package: pkg1
Packages: pkg1 and pkg2
Code
print(pluralize("{0} word{?A/B/}"))
Output
0 wordA
Code
print(pluralize("{1} word{?A/B/}"))
Output
1 wordB
Code
print(pluralize("{9} word{?A/B/}"))
Output
9 word
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.