Nothing
# Dynamically exported, see zzz.R
type_sum.phone <- function(x) "phone"
# Dynamically exported, see zzz.R
pillar_shaft.phone <- function(x, ...) {
out <- format(x)
out[is.na(x)] <- NA
valid <- is_valid(x)
out[!valid] <- pillar::style_neg(out[!valid])
pillar::new_pillar_shaft_simple(out, align = "right")
}
# Dynamically exported, see zzz.R
obj_sum.phone <- function(x) {
paste0("phone [", length(x), "]")
}
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.