Nothing
#' @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()
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.