R/macos.R

In notifier: Cross Platform Desktop Notifications

#' @importFrom utils packageName

notify_macos <- function(msg, title, image) {

  location <- readLines(system.file(package = packageName(), "tn", "binary"))
  tn <- system.file(package = packageName(), "tn", location)

  if (!file.exists(tn)) {
    stop("Cannot find terminal-notifier executable, ", sQuote("notifier"),
         " installation is broken", call. = FALSE)
  }

  bundle_id <- if (Sys.getenv("RSTUDIO", "") == "1") {
    "org.rstudio.RStudio"
  } else {
    "org.r-project.R"
  }

  args <- c(
    "-message", shQuote(msg),
    "-title", shQuote(title),
    "-sender", bundle_id,
    if (! is.null(image)) c("-contentImage", shQuote(normalizePath(image)))
  )

  system2(tn, args)

  invisible()
}