prepExprs <- function(x) { 
  xx <- assays(x)$exprs
  if (any(is.na(xx))) {
    message('Imputing NAs...')
    xx <- impute.knn(xx)$data
  }
  return(xx)
        
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.