Wenn ich R-Skripte ausführe, mache ich etwas anderes auf einem anderen Desktop. Wenn ich nicht häufig nachschaue, weiß ich nie, wann etwas fertig ist. Gibt es eine Möglichkeit, einen Piepton auszulösen (wie einen System-Piepton) oder R dazu zu bringen, einen Sound abzuspielen oder das Knurren über einen Code am Ende meines Skripts zu benachrichtigen?

alarm()

Die Alarmfunktion . Es funktioniert durch Senden \aan die Konsole

Ich habe ein Paket ( beepr) mit dem alleinigen Zweck, Benachrichtigungssounds in R zu erzeugen, das plattformübergreifend funktionieren sollte. Führen Sie die folgenden Schritte aus, um beepr zu installieren und einen Sound zu erzeugen:

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

Weitere Informationen unter github: https://github.com/rasmusab/beepr

Unter MacOSX können Sie den Computer sprechen lassen:

system("say Just finished!")

und Sie können auch die künstliche Stimme ändern, die spricht:

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

Sie können jede Stimme auswählen, die auf Ihrem Computer verfügbar ist. Auf Yosemite können Sie sehen, welche Stimmen in den Systemeinstellungen -> Diktat & Sprache -> Text zu Sprache installiert sind .

Sie sollten es twittern lassen, wenn es fertig ist: http://cran.r-project.org/web/packages/twitteR/index.html

alarm funktioniert auf meinem Windows-Computer nicht, daher habe ich eine Funktion erstellt, die tatsächlich Geräusche macht.

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

Dies könnte natürlich nur unter Windows funktionieren, aber ich kann nicht garantieren, dass es sogar auf einem beliebigen Windows-Computer ausgeführt wird. Ich habe es nur auf meinem Computer getestet, aber ich dachte, ich würde es veröffentlichen, falls jemand das gleiche Problem damit hat alarmwie ich.

Katze ('Hallo Welt! \ a')

Nicht nur das, du kannst auch epische Musik von Youtube einfügen, wenn das Programm fertig ist :) (Für Ubuntu / Debian :)

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

Bitte verwenden Sie shell.exec("url"), um einen YouTube-Clip unter Windows zu öffnen

AKTUALISIEREN:

Mit macOS 10.9 (Mavericks) und höher können Sie Benachrichtigungen mit einfachem AppleScript veröffentlichen:

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

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

Dadurch entfällt die Notwendigkeit der Installation terminal-notifier(siehe unten).

- -

Ich habe Terminal-Notifier auf meinem Mac installiert Desktop - Benachrichtigungen von der Kommandozeile zu erhalten. Sie können dann einen Aufruf des system()Befehls wie folgt abschließen (ändern Sie natürlich den Pfad):

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

}

Sie können die Funktion so aufrufen

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

um eine Nachricht wie diese zu erhalten:

Update: Enthält den sayBefehl von @ VLC .

Wie wäre es mit etwas, das für Betriebssysteme mit GUIs und Webbrowsern einigermaßen betriebssystemunabhängig ist? Es funktioniert sogar auf RStudio Server!

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

Oder wenn Sie die GNU / Linux-Distribution verwenden und das PCspkr- Modul auf die schwarze Liste gesetzt haben (der PC-Lautsprecher hat mich immer gestört ), versuchen Sie es systemmit einer akustischen / visuellen Benachrichtigung, z

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

Sie können das Zenity- Handbuch überprüfen, wenn Sie beispielsweise im Benachrichtigungsbereich eine Warnung bevorzugen. Mit der systemFunktion können Sie jedoch so ziemlich alles tun: eine E-Mail senden, ein anderes Skript ausführen, den Computer neu starten sudo rm -rf *.*usw. Alles ... und ich meine es.

Aber das steht nur IF Sie GNU / Linux (oder UNIX) Verteilung laufen lassen , andernfalls Stick Windows - spezifische Befehle, obwohl in diesem Fall kann ich Ihnen nicht viele Informationen geben ...

Inspiriert von beepr, ist dies die Funktion, die ich derzeit für diese Art von Problemen verwende: 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)
  }
}

Wie wäre es mit Musik?

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

Schauen Sie sich dieses Paket an: RPushBullet

Eine R-Schnittstelle zum Pushbullet-Messaging-Dienst, die schnelle und effiziente Benachrichtigungen (und Dateiübertragungen) zwischen Computern, Telefonen und Tablets ermöglicht

RPushbullet ist völlig kostenlos und plattformübergreifend. Was Ihre Frage betrifft, können Sie diese Bibliothek verwenden, um einen Push an Ihren Browser zu senden. Offensichtlich wird es jedoch erstaunlich, wenn Sie etwas benötigen, das Sie während Ihrer Abwesenheit benachrichtigen kann. Darüber hinaus ist der Schöpfer des R-Pakets derselbe wie der bekannte Rcpp Dirk Eddelbuettel. Ich würde sagen, es ist einen Versuch wert!

Sie können den folgenden notify-sendBefehl verwenden:

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

Aufgrund dieser vielen Ideen habe ich eine Lösung ohne Internetzugang erstellt, da ich mit einem VPN-Client unter Windows arbeite. Es wird also ein typischer Windows-Sound abgespielt, der normalerweise auf jedem Windows-Betriebssystem ausgeführt wird.

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

Funktion ohne Schleife

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