Nothing
#' @keywords internal
#'
to_decimal <- function (fractional)
{
if (inherits(fractional, "data.frame")) {
return(data.frame(sapply(fractional, to_decimal), row.names = rownames(fractional)) %>%
stats::setNames(names(fractional)) %>% as.matrix)
}
sapply(ifelse(fractional == "", NA, fractional), function(ratio) {
eval(parse(text = ratio))
}, USE.NAMES = FALSE) + 1
}
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.