Quando eseguo gli script R, vado a fare qualcos'altro su un desktop diverso. Se non controllo frequentemente, non so mai quando qualcosa è finito. C'è un modo per invocare un segnale acustico (come un segnale acustico di sistema) o ottenere R per riprodurre un suono o notificare il ringhio tramite un codice alla fine del mio script?

alarm()

La funzione di allarme Funziona inviando \aalla console

Ho un pacchetto ( beepr) con l'unico scopo di emettere suoni di notifica in R che dovrebbe funzionare multipiattaforma. Eseguire quanto segue per installare beepr ed emettere un suono:

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

Maggiori informazioni su github: https://github.com/rasmusab/beepr

Su MacOSX puoi far parlare il computer:

system("say Just finished!")

e puoi anche cambiare la voce artificiale che parlerà:

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

Puoi scegliere qualsiasi voce disponibile sul tuo computer. Su Yosemite puoi vedere quali voci sono installate in Preferenze di Sistema -> Dettatura e voce -> Sintesi vocale .

Dovresti averlo tweet quando ha finito: http://cran.r-project.org/web/packages/twitteR/index.html

alarm non funziona sul mio computer Windows, quindi ho creato una funzione che effettivamente fa rumore.

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

Questo chiaramente potrebbe funzionare solo su Windows, ma non garantisco che funzionerà anche su un computer Windows arbitrario. L'ho provato solo sulla mia macchina ma ho pensato di pubblicarlo nel caso in cui qualcuno avesse lo stesso problema alarm.

cat ('Hello world! \ a')

Non solo, puoi anche mettere un po 'di musica epica da Youtube quando il programma è fatto in loop :) (Per Ubuntu / Debian :)

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

Si prega di utilizzare shell.exec("url")per aprire alcune clip di YouTube su Windows

AGGIORNARE:

Con macOS 10.9 (Mavericks) e versioni successive, puoi pubblicare notifiche utilizzando semplicemente AppleScript:

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

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

Ciò elimina la necessità di installazione terminal-notifier, di seguito indicata.

-

Ho terminale-notifier installato sul mio Mac per ottenere le notifiche sul desktop dalla riga di comando. È quindi possibile concludere una chiamata al system()comando in questo modo (cambiare il percorso, ovviamente):

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

}

Puoi chiamare la funzione in questo modo

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

per ricevere un messaggio come questo:

Aggiornamento: incluso il saycomando di VLC .

Che ne dici di qualcosa di ragionevolmente indipendente dal SO per i SO con GUI e browser web? Funziona anche su RStudio Server!

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

Oppure se stai usando la distribuzione GNU / Linux e hai il modulo pcspkr nella lista nera (l'altoparlante del PC mi ha sempre infastidito), prova a combinare systemcon qualche notifica uditiva / visiva, ad es.

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

Puoi controllare il manuale di zenity se preferisci avvisare, diciamo, nell'area di notifica ... Ma, con la systemfunzione, puoi fare praticamente qualsiasi cosa: inviare un'e-mail, eseguire qualche altro script, riavviare la macchina sudo rm -rf *.*, ecc. Qualsiasi cosa ... e dico sul serio.

Ma questo vale solo se stai eseguendo la distribuzione GNU / Linux (o UNIX), altrimenti, segui i comandi specifici di Windows, anche se in quel caso non posso darti molte informazioni ...

Ispirato da beepr, questa è la funzione che sto attualmente utilizzando per questo tipo di problemi: 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)
  }
}

Che ne dici di suonare un po 'di musica?

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

dai un'occhiata a questo pacchetto: RPushBullet

Un'interfaccia R al servizio di messaggistica Pushbullet che fornisce notifiche rapide ed efficienti (e trasferimento di file) tra computer, telefoni e tablet

RPushbullet è completamente gratuito e multipiattaforma. Per quanto riguarda la tua domanda, puoi utilizzare questa libreria per inviare un Push al tuo browser, ma ovviamente diventa incredibile quando hai bisogno di qualcosa che ti può avvisare mentre sei via. Inoltre, il creatore del pacchetto R è lo stesso del noto Rcpp, Dirk Eddelbuettel. Direi che vale la pena provare!

Puoi usare il notify-sendcomando:

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

Grazie a queste tante idee, ho creato una soluzione senza accesso a Internet, perché lavoro con un client VPN con Windows. Quindi riproduce un tipico suono di Windows, che di solito si trova su qualsiasi sistema operativo 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)
      }
    }

Funzione senza loop

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