Kiedy uruchamiam skrypty R, robię coś innego na innym pulpicie. Jeśli nie sprawdzam często, nigdy nie wiem, kiedy coś się skończy. Czy istnieje sposób, aby wywołać sygnał dźwiękowy (np. Dźwięk systemowy) lub zmusić R do odtworzenia dźwięku lub powiadomienia warknięcia za pomocą jakiegoś kodu na końcu mojego skryptu?

alarm()

Funkcja alarmu . Działa poprzez wysłanie \ado konsoli

Mam pakiet ( beepr), którego jedynym celem jest wydawanie dźwięków powiadomień w języku R, który powinien działać na wielu platformach. Uruchom następujące, aby zainstalować beepr i wydać dźwięk:

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

Więcej informacji na github: https://github.com/rasmusab/beepr

W systemie MacOSX możesz pozwolić komputerowi mówić:

system("say Just finished!")

i możesz także zmienić sztuczny głos, który będzie mówił:

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

Możesz wybrać dowolny głos dostępny na Twoim komputerze. W Yosemite możesz zobaczyć, które głosy są zainstalowane w Preferencjach systemowych -> Dyktowanie i mowa -> Zamiana tekstu na mowę .

Powinieneś mieć go tweetem po zakończeniu: http://cran.r-project.org/web/packages/twitteR/index.html

alarm nie działa na moim komputerze z systemem Windows, więc stworzyłem funkcję, która faktycznie hałasuje.

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

To oczywiście może działać tylko w systemie Windows, ale nie gwarantuję, że będzie działać nawet na dowolnym komputerze z systemem Windows. Przetestowałem to tylko na moim komputerze, ale pomyślałem, że opublikuję go na wypadek, gdyby ktoś miał z tym ten sam problem, alarmco ja.

kot ('Witaj, świecie! \ a')

Nie tylko to, możesz także umieścić epicką muzykę z YouTube, gdy program jest zakończony w pętli :) (dla Ubuntu / Debian :)

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

Użyj, shell.exec("url")aby otworzyć klip YouTube w systemie Windows

AKTUALIZACJA:

W systemie macOS 10.9 (Mavericks) i nowszym możesz publikować powiadomienia przy użyciu zwykłego AppleScript:

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

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

Eliminuje to potrzebę instalacji terminal-notifier, o której mowa poniżej.

-

Mam zainstalowany terminal-notifier na moim Macu, aby otrzymywać powiadomienia na pulpicie z wiersza poleceń. Następnie możesz zakończyć wywołanie system()polecenia w ten sposób (oczywiście zmień ścieżkę):

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

}

Możesz wywołać tę funkcję w ten sposób

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

aby otrzymać taką wiadomość:

Aktualizacja: polecenie zawarte w @ VLC say.

Co powiesz na coś w miarę niezależnego od systemu operacyjnego dla systemów operacyjnych z graficznym interfejsem użytkownika i przeglądarkami internetowymi? Działa nawet na serwerze RStudio!

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

Lub jeśli używasz dystrybucji GNU / Linux i masz moduł pcspkr na czarnej liście (głośnik PC zawsze mnie denerwował), spróbuj połączyć systemz jakimś dźwiękowym / wizualnym powiadomieniem, np.

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

Możesz sprawdzić podręcznik zenity, jeśli wolisz alert w, powiedzmy, obszarze powiadomień ... Ale dzięki systemfunkcji możesz zrobić prawie wszystko: wysłać wiadomość e-mail, uruchomić inny skrypt, zrestartować komputer sudo rm -rf *.*itp. Cokolwiek ... i mam to na myśli.

Ale to oznacza tylko IF używasz GNU / Linux (UNIX) lub dystrybucji, w przeciwnym razie kij do konkretnych poleceń systemu Windows, choć w tym przypadku, nie mogę dać ci wiele informacji ...

Zainspirowana beepr, jest to funkcja, której obecnie używam do tego typu problemów: 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)
  }
}

A może puszczasz muzykę?

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

spójrz na ten pakiet: RPushBullet

Interfejs R do usługi przesyłania wiadomości Pushbullet, która zapewnia szybkie i wydajne powiadomienia (i przesyłanie plików) między komputerami, telefonami i tabletami

RPushbullet jest całkowicie darmowy i wieloplatformowy. Jeśli chodzi o twoje pytanie, możesz użyć tej biblioteki, aby wysłać wiadomość Push do przeglądarki, ale oczywiście staje się niesamowite, gdy potrzebujesz czegoś, co może Cię powiadomić, gdy Cię nie ma. Ponadto twórcą pakietu R jest ten sam, co dobrze znany Rcpp, Dirk Eddelbuettel. Powiedziałbym, że warto spróbować!

Możesz użyć notify-sendpolecenia:

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

Z powodu tych wielu pomysłów stworzyłem rozwiązanie bez dostępu do Internetu, ponieważ pracuję z klientem VPN w systemie Windows. Odtwarza więc typowy dźwięk systemu Windows, który zwykle występuje w każdym systemie operacyjnym 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)
      }
    }

Funkcja bez pętli

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