Lorsque j'exécute des scripts R, je fais autre chose sur un autre bureau. Si je ne vérifie pas fréquemment, je ne sais jamais quand quelque chose est terminé. Existe-t-il un moyen d'appeler un bip (comme un bip système) ou de demander à R de jouer un son ou de notifier le grognement via un code à la fin de mon script?

alarm()

La fonction d' alarme . Cela fonctionne en envoyant \aà la console

J'ai un package ( beepr) dans le seul but de faire des sons de notification dans R qui devraient fonctionner multi-plateforme. Exécutez ce qui suit pour installer beepr et émettre un son:

install.packages("beepr")
library(beepr)
beep()

Plus d'informations sur github: https://github.com/rasmusab/beepr

Sur MacOSX, vous pouvez laisser l'ordinateur parler:

system("say Just finished!")

et vous pouvez également changer la voix artificielle qui parlera:

system("say -v Kathy Just finished!")

Vous pouvez choisir n'importe quelle voix disponible sur votre ordinateur. Sur Yosemite, vous pouvez voir quelles voix sont installées dans les Préférences Système -> Dictée et Parole -> Synthèse vocale .

Vous devriez l'avoir tweet quand c'est fait: http://cran.r-project.org/web/packages/twitteR/index.html

alarm ne fonctionne pas sur ma machine Windows, j'ai donc créé une fonction qui fait du bruit.

beep <- function(n = 3){
    for(i in seq(n)){
        system("rundll32 user32.dll,MessageBeep -1")
        Sys.sleep(.5)
    }
}

Cela ne pourrait clairement fonctionner que sur Windows, mais je ne garantis pas qu'il fonctionnera même sur un ordinateur Windows arbitraire. Je ne l'ai testé que sur ma machine, mais je me suis dit que je le publierais au cas où quelqu'un aurait le même problème alarmque moi.

chat ('Bonjour le monde! \ a')

Non seulement cela, vous pouvez également mettre de la musique épique de Youtube lorsque le programme est terminé en boucle :) (Pour Ubuntu / Debian :)

system("xdg-open 'http://www.youtube.com/watch?v=9jK-NcRmVcw'")

Veuillez utiliser shell.exec("url")pour ouvrir un clip YouTube sur Windows

METTRE À JOUR:

Avec macOS 10.9 (Mavericks) et versions ultérieures, vous pouvez publier des notifications à l'aide d'AppleScript simple:

theTitle <- "A Title"
theMsg <- "A message here"

cmd <- paste("osascript -e ", "'display notification ", '"', theMsg, '"', ' with title ', '"', theTitle, '"', "'", sep='')
system(cmd)

Cela supprime le besoin d'installer terminal-notifier, référencé ci-dessous.

-

J'ai installé Terminal-notifier sur mon Mac pour recevoir des notifications sur le bureau à partir de la ligne de commande. Vous pouvez ensuite conclure un appel à la system()commande comme ceci (changez le chemin, évidemment):

notify <- function(msgString='Message from R', titleString='Message from R', speakIt=FALSE) {
    cmd <- paste('~/terminal-notifier/terminal-notifier.app/Contents/MacOS/terminal-notifier -message ', '"', msgString, '"  -title "', titleString, '"', sep='')
    system(cmd)

    if (speakIt) {
        system(paste('say', msgString))
    }

}

Vous pouvez appeler la fonction comme ceci

notify("R is done", "Message from R", speakIt=TRUE)

pour recevoir un message comme celui-ci:

Mise à jour: commande incluse @ VLC say.

Que diriez-vous de quelque chose de raisonnablement indépendant du système d'exploitation pour les systèmes d'exploitation avec des interfaces graphiques et des navigateurs Web? Cela fonctionne même sur RStudio Server!

browseURL('https://www.youtube.com/watch?v=QH2-TGUlwu4')

Ou si vous utilisez la distribution GNU / Linux et que le module pcspkr est sur liste noire (le haut-parleur du PC m'a toujours ennuyé), essayez de le combiner systemavec une notification auditive / visuelle, par exemple

system("aplay -t wav /usr/share/sounds/phone.wav") # for auditive bell (an I mean it literary)
system("zenity --title=\"R script info\" --text=\"Script has finished with zero exit status\" --info") # for GTK dialog

Vous pouvez vérifier zenity manuel si vous préférez alerte, par exemple, la zone de notification ... Mais, avec la systemfonction, vous pouvez faire à peu près tout: envoyer un e - mail, exécutez un autre scénario, redémarrer la machine, sudo rm -rf *.*etc. quoi que ce soit ... et je le pense.

Mais cela ne vaut que SI vous exécutez une distribution GNU / Linux (ou UNIX), sinon, respectez les commandes spécifiques à Windows, bien que dans ce cas, je ne puisse pas vous donner beaucoup d'informations ...

Inspiré par beepr, c'est la fonction que j'utilise actuellement pour ce genre de problèmes: D

work_complete <- function() {
  cat("Work complete. Press esc to sound the fanfare!!!\n")
  on.exit(beepr::beep(3))

  while (TRUE) {
    beepr::beep(4)
    Sys.sleep(1)
  }
}

Que diriez-vous de jouer de la musique?

shell.exec("foo/Born.to.be.wild.mp3")

jetez un œil à ce package: RPushBullet

Une interface R vers le service de messagerie Pushbullet qui fournit des notifications (et un transfert de fichiers) rapides et efficaces entre ordinateurs, téléphones et tablettes

RPushbullet est entièrement gratuit et multi-plateforme. En ce qui concerne votre question, vous pouvez utiliser cette bibliothèque pour envoyer un Push à votre navigateur, mais cela devient évidemment incroyable lorsque vous avez besoin de quelque chose qui peut vous avertir lorsque vous êtes absent. De plus, le créateur du package R est le même que le célèbre Rcpp, Dirk Eddelbuettel. Je dirais que ça vaut le coup!

Vous pouvez utiliser la notify-sendcommande:

system("notify-send \"R script finished running\"")

En raison de ces nombreuses idées, j'ai créé une solution sans accès Internet, car je travaille avec un client VPN avec Windows. Donc, il joue un son Windows typique, qui est généralement sur n'importe quel système d'exploitation Windows.

#Function with loop, press Esc to stopp      
    alarm2 <- function(){
      while(TRUE){
        system("cmd.exe",input="C:/Windows/WinSxS/amd64_microsoft-windows-shell-sounds_31bf3856ad364e35_10.0.17134.1_none_fc93088a1eb3fd11/tada.wav")
        Sys.sleep(1)
      }
    }

Fonction sans boucle

    alarm3 <- function(){
        system("cmd.exe",input="C:/Windows/WinSxS/amd64_microsoft-windows-shell-sounds_31bf3856ad364e35_10.0.17134.1_none_fc93088a1eb3fd11/tada.wav")
        Sys.sleep(1)
    }