Nothing
test_all_formats <- function(zone = TRUE) {
out <- c(
"C: %C",
"y: %y",
"Y: %Y",
"b: %b",
"h: %h",
"B: %B",
"m: %m",
"d: %d",
"a: %a",
"A: %A",
"w: %w",
"g: %g",
"G: %G",
"V: %V",
"u: %u",
"U: %U",
"W: %W",
"j: %j",
"D: %D",
"x: %x",
"F: %F",
"H: %H",
"I: %I",
"M: %M",
"S: %S",
"p: %p",
"R: %R",
"T: %T",
"X: %X",
"r: %r",
"c: %c",
"%: %%"
)
if (!zone) {
return(out)
}
c(
out,
"z: %z",
"Ez: %Ez",
"Z: %Z"
)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.