Notifications from R (only for linux)

notify.R

notify <- function(title = "title", text = NULL, time = 2) {
   time <- time*1000
   system(paste0("notify-send ", title, " ", text, "-t ", time, " -a rstudio"))
}

notify_after <- function(expression, ...) {
   expression <- eval(expression)
   notify(title = "Run\\ ended", ...)
   return(expression)
}

notify_after(Sys.sleep(4))