# check username
check_username <- function(username, regex = ".*", msg = "incorrect username format") {
if (!grepl(regex, username)) {
stop(msg, call. = F)
}
invisible(TRUE)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.