is_network <- function(){
working_directory <- getwd()
out <- grepl(pattern = "\\\\\\\\", working_directory)
return(out)
}
is_network()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.