#' Test if you can invert a matrix
#'
#' @param t a matrix
#'
#' @return True or false
cant.solve <- function(m) class(try(solve(m),silent=T))!="matrix"
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.