check_session <- function(x){
if(is.null(x))
stop("Invalid session, run this function inside your Shiny server.", call. = FALSE)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.