bIsScalarOfClass <- function(objIn, cClassName) {
return(methods::is(object = objIn, class2 = cClassName) & length(objIn) == 1L)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.