all_numeric <- function(data) {
if ("FALSE" %in% purrr::map_lgl(data, is.numeric))
stop("All columns must be numeric for PCA")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.