Quando executo scripts R, faço outra coisa em uma área de trabalho diferente. Se não checo com frequência, nunca sei quando algo está terminado. Existe uma maneira de chamar um sinal sonoro (como um sinal sonoro do sistema) ou fazer o R ​​tocar um som ou notificar um rosnado por meio de algum código no final do meu script?

alarm()

A função de alarme . Funciona enviando \apara o console

Eu tenho um pacote ( beepr) com o único objetivo de emitir sons de notificação em R que devem funcionar em várias plataformas. Execute o seguinte para instalar o beepr e emitir um som:

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

Mais informações no github: https://github.com/rasmusab/beepr

No MacOSX, você pode deixar o computador falar:

system("say Just finished!")

e você também pode alterar a voz artificial que falará:

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

Você pode escolher qualquer voz que esteja disponível no seu computador. No Yosemite, você pode ver quais vozes estão instaladas em Preferências do Sistema -> Ditado e Fala -> Texto em Fala .

Você deve tweetá-lo quando terminar: http://cran.r-project.org/web/packages/twitteR/index.html

alarm não funciona na minha máquina Windows, então criei uma função que realmente faz barulho.

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

Isso claramente só poderia funcionar no Windows, mas não garanto que ele seja executado em um computador Windows arbitrário. Eu testei apenas na minha máquina, mas achei que a publicaria caso alguém tivesse o mesmo problema alarmque eu.

cat ('Olá mundo! \ a')

Além disso, você também pode colocar algumas músicas épicas do Youtube quando o programa terminar em loop :) (Para Ubuntu / Debian :)

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

Use shell.exec("url")para abrir um clipe do YouTube no Windows

ATUALIZAR:

Com o macOS 10.9 (Mavericks) e posterior, você pode postar notificações usando o AppleScript comum:

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

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

Isso elimina a necessidade de instalação terminal-notifier, referenciada abaixo.

-

Eu tenho o notificador de terminal instalado no meu Mac para receber notificações da área de trabalho na linha de comando. Você pode então encerrar uma chamada para o system()comando como este (altere o caminho, obviamente):

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

}

Você pode chamar a função assim

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

para receber uma mensagem como esta:

Atualização: sayComando do @ VLC incluído .

Que tal algo razoavelmente independente do SO para SOs com GUIs e navegadores da web? Até funciona no servidor RStudio!

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

Ou se você estiver usando a distribuição GNU / Linux e tiver o módulo pcspkr na lista negra (o alto-falante do PC sempre me incomodou ), tente combinar systemcom alguma notificação visual / auditiva, por exemplo

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

Você pode verificar o manual do zenity se preferir alerta na área de notificação, por exemplo ... Mas, com a systemfunção, você pode fazer praticamente qualquer coisa: enviar um email, executar outro script, reiniciar a máquina sudo rm -rf *.*, etc. qualquer coisa ... e eu quero dizer isso.

Mas isso permanece apenas se você estiver executando a distribuição GNU / Linux (ou UNIX); caso contrário, atenha-se a comandos específicos do Windows, embora, nesse caso, eu não possa fornecer muitas informações ...

Inspirada por beepr, esta é a função que estou usando atualmente para esse tipo de problema: 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 tal tocar música?

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

veja este pacote: RPushBullet

Uma interface R para o serviço de mensagens Pushbullet que fornece notificações rápidas e eficientes (e transferência de arquivos) entre computadores, telefones e tablets

RPushbullet é totalmente gratuito e multi plataforma. Quanto à sua pergunta, você pode usar esta biblioteca para enviar um Push ao seu navegador, mas obviamente fica incrível quando você precisa de algo que possa notificá-lo enquanto estiver ausente. Além disso, o criador do pacote R é o mesmo do conhecido Rcpp, Dirk Eddelbuettel. Eu diria que vale a pena tentar!

Você pode usar o notify-sendcomando:

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

Por causa dessas muitas idéias, criei uma solução sem acesso à Internet, porque trabalho com um cliente VPN no Windows. Portanto, ele reproduz um som típico do Windows, que geralmente está em qualquer sistema operacional 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)
      }
    }

Função sem 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)
    }