Nothing
output$mult2 <- renderPrint({
num_data <- final_split$train[, sapply(final_split$train, is.factor)]
# validate(need(!is.null(dim(num_data)), 'Data must have at least 3 factor variables.'))
if (is.null(dim(num_data))) {
out <- NULL
} else if (ncol(num_data) < 3) {
out <- NULL
} else {
ds_tway_tables(final_split$train)
}
})
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.