vol_calcs <- function(x,type) {
z <- x[[4]]
if (type == 'round') {
volume <- pi * (z$d/2)^2 * z$h
} else {
volume <- z$l * z$w * z$h
}
return(volume)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.