#' @title Am I on the server?
#' @description Checks wether \code{Sys.info()} contains info pointing to the server
#' @export
server <- function() as.character(Sys.info()['nodename']) == "UCRANALYS"
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.