# function to check that the OS is windows
check_windows <- function(){
unname(Sys.info()['sysname']) == 'Windows'
}
assertthat::assert_that(Sys.info()['sysname'] == 'Windows')
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.