is_windows <- function() {
tolower(Sys.info()[["sysname"]]) == "windows"
}
is_linux <- function() {
tolower(Sys.info()[["sysname"]]) == "linux"
}
is_macos <- function() {
tolower(Sys.info()[["sysname"]]) == "darwin"
}
grandview_app <- function() {
if (is_macos()) {
file.path(
tools::R_user_dir(package = "grandview"),
"app", "GrandView.app", "Contents", "MacOS", "GrandView"
)
} else if (is_linux()) {
file.path(
tools::R_user_dir(package = "grandview"),
"app", "grandview"
)
}
}
grandview_exists <- function() {
file.exists(grandview_app())
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.