Nothing
safe_nsmall <- function(x){
# why do we need this?
# prevents hard stops when using format
x <- max(x, 0)
x <- min(x, 20)
x
}
find_smallest_10 <- function(x, y = 1e-10){
if(x < 1e-10) stop(
'the number you are attempting to round is too small',
call. = FALSE
)
if(x == Inf) return(Inf)
if (x < y) { return(y/10) } else { find_smallest_10(x, y*10) }
}
duplicate_last <- function(x) c(x, x[length(x)])
is_empty <- function (x) length(x) == 0
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.