# borrowed shamelessly from
# https://github.com/rstudio/tensorflow/blob/308e0cfdcdfe365f6cb36450ffa341fd54209940/R/utils.R
is_windows <- function() {
identical(.Platform$OS.type, "windows")
}
is_unix <- function() {
identical(.Platform$OS.type, "unix")
}
is_osx <- function() {
Sys.info()["sysname"] == "Darwin"
}
is_linux <- function() {
identical(tolower(Sys.info()[["sysname"]]), "linux")
}
is_ubuntu <- function() {
# check /etc/lsb-release
if (is_unix() && file.exists("/etc/lsb-release")) {
lsbRelease <- readLines("/etc/lsb-release")
any(grepl("Ubuntu", lsbRelease))
} else {
FALSE
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.