Cuando ejecuto scripts R, hago otra cosa en un escritorio diferente. Si no reviso con frecuencia, nunca sé cuándo algo está terminado. ¿Hay alguna manera de invocar un pitido (como un pitido del sistema) o hacer que R reproduzca un sonido o notifique un gruñido a través de algún código al final de mi script?

alarm()

La función de alarma . Funciona enviando \aa la consola

Tengo un paquete ( beepr) con el único propósito de hacer sonidos de notificación en R que debería funcionar multiplataforma. Ejecute lo siguiente para instalar beepr y emitir un sonido:

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

Más información en github: https://github.com/rasmusab/beepr

En MacOSX puedes dejar que la computadora hable:

system("say Just finished!")

y también puedes cambiar la voz artificial que hablará:

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

Puede elegir cualquier voz que esté disponible en su computadora. En Yosemite puede ver qué voces están instaladas en Preferencias del sistema -> Dictado y voz -> Texto a voz .

Debería hacer que tuitee cuando esté hecho: http://cran.r-project.org/web/packages/twitteR/index.html

alarm no funciona en mi máquina Windows, así que creé una función que realmente hace ruido.

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

Claramente, esto solo podría funcionar en Windows, pero no garantizo que incluso se ejecute en una computadora arbitraria de Windows. Solo lo probé en mi máquina, pero pensé que lo publicaría en caso de que alguien tuviera el mismo problema alarmque yo.

gato ('Hola mundo! \ a')

No solo eso, también puedes poner música épica de Youtube cuando el programa haya terminado de reproducirse :) (Para Ubuntu / Debian :)

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

Úselo shell.exec("url")para abrir algún clip de YouTube en Windows

ACTUALIZAR:

Con macOS 10.9 (Mavericks) y versiones posteriores, puede publicar notificaciones usando AppleScript simple:

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

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

Esto elimina la necesidad de instalar terminal-notifier, a la que se hace referencia a continuación.

-

Tengo instalado un terminal-notificador en mi Mac para recibir notificaciones de escritorio desde la línea de comandos. Luego puede finalizar una llamada al system()comando como este (cambiar la ruta, 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))
    }

}

Puedes llamar a la función así

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

para recibir un mensaje como este:

Actualización: Incluye el saycomando @ VLC .

¿Qué tal algo razonablemente independiente del sistema operativo para sistemas operativos con GUI y navegadores web? ¡Incluso funciona en RStudio Server!

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

O si está utilizando la distribución GNU / Linux y tiene el módulo pcspkr en la lista negra (el altavoz de la PC siempre me molestó), intente combinarlo systemcon alguna notificación auditiva / visual, por ejemplo

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

Puede consultar el manual de zenity si prefiere la alerta en, por ejemplo, el área de notificación ... Pero, con la systemfunción, puede hacer casi cualquier cosa: enviar un correo electrónico, ejecutar otro script, reiniciar la máquina sudo rm -rf *.*, etc. cualquier cosa ... y hablo en serio.

Pero esto solo es válido si está ejecutando la distribución GNU / Linux (o UNIX), de lo contrario, cumpla con los comandos específicos de Windows, aunque en ese caso, no puedo darle mucha información ...

Inspirado por beepr, esta es la función que estoy usando actualmente para este tipo de problemas: 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)
  }
}

¿Qué tal tocar algo de música?

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

Echa un vistazo a este paquete: RPushBullet

Una interfaz R para el servicio de mensajería Pushbullet que proporciona notificaciones rápidas y eficientes (y transferencia de archivos) entre computadoras, teléfonos y tabletas

RPushbullet es completamente gratuito y multiplataforma. En cuanto a su pregunta, puede usar esta biblioteca para enviar un Push a su navegador, pero obviamente se vuelve sorprendente cuando necesita algo que puede notificarle mientras está fuera. Además, el creador del paquete R es el mismo del conocido Rcpp, Dirk Eddelbuettel. ¡Diría que vale la pena intentarlo!

Puedes usar el notify-sendcomando:

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

Debido a estas muchas ideas, he creado una solución sin acceso a Internet, porque trabajo con un cliente VPN con Windows. Por lo tanto, reproduce un sonido típico de Windows, que generalmente se encuentra en cualquier 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)
      }
    }

Funcion sin lazo

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