Nothing
units_seconds <- function(x) {
map_chr(x, units_seconds_scalar)
}
units_seconds_scalar <- function(x) {
if (is.na(x)) {
return("")
}
if (x > 3600 * 24 * 365) {
return(paste(round(x / (3600 * 24 * 365), 3), "years"))
}
if (x > 3600 * 24 * 30) {
return(paste(round(x / (3600 * 24 * 30), 3), "months"))
}
if (x > 3600 * 24) {
return(paste(round(x / (3600 * 24), 3), "days"))
}
if (x > 3600) {
return(paste(round(x / 3600, 3), "hours"))
}
if (x > 60) {
return(paste(round(x / 60, 3), "minutes"))
}
paste(round(x, 3), "seconds")
}
units_bytes <- function(x) {
map_chr(x, units_bytes_scalar)
}
units_bytes_scalar <- function(x) {
if (is.na(x)) {
return("")
}
if (x > 1e12) {
return(paste(round(x / 1e12, 2), "terabytes"))
}
if (x > 1e9) {
return(paste(round(x / 1e9, 3), "gigabytes"))
}
if (x > 1e6) {
return(paste(round(x / 1e6, 3), "megabytes"))
}
if (x > 1e3) {
return(paste(round(x / 1e3, 3), "kilobytes"))
}
paste(round(x, 3), "bytes")
}
units_branches <- function(x) {
ifelse(
is.na(x),
"",
paste(round(x), "branches")
)
}
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.