R/grandview-app.R

In hrbrmstr/grandview: Provides Dedicated, Platform-Specific Viewers for 'httpgd' Graphics Devices

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())
}