R komut dosyalarını çalıştırdığımda farklı bir masaüstünde başka bir şey yapıyorum. Sık sık kontrol etmezsem, bir şeyin ne zaman bittiğini asla bilemem. Bir bip sesi (sistem bip sesi gibi) çağırmanın veya R'nin bir ses çalmasını veya betiğimin sonunda bazı kodlarla hırıltıyı bildirmesini sağlamanın bir yolu var mı?

alarm()

Alarm fonksiyonu. \aKonsola göndererek çalışır

beeprTek platformda çalışması gereken R'de bildirim sesleri yapmak için bir paket ( ) var. Beepr'i kurmak ve ses çıkarmak için aşağıdakileri çalıştırın:

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

Github hakkında daha fazla bilgi: https://github.com/rasmusab/beepr

MacOSX'te bilgisayarın konuşmasına izin verebilirsiniz:

system("say Just finished!")

ve konuşacak yapay sesi de değiştirebilirsiniz:

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

Bilgisayarınızda bulunan herhangi bir sesi seçebilirsiniz. Yosemite'de Sistem Tercihleri ​​-> Dikte ve Konuşma -> Metinden Konuşmaya'da hangi seslerin kurulu olduğunu görebilirsiniz .

Tamamlandığında tweet'iniz olmalı: http://cran.r-project.org/web/packages/twitteR/index.html

alarm Windows makinemde çalışmıyor, bu yüzden gerçekten gürültü yapan bir işlev oluşturdum.

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

Bu açıkça sadece Windows üzerinde çalışabilir, ancak keyfi bir Windows bilgisayarda bile çalışacağını garanti etmiyorum. Ben sadece makinemde test ettim ama herkesin alarmbenim yaptığımla aynı problemi olması durumunda göndereceğimi düşündüm .

kedi ('Merhaba dünya! \ a')

Sadece bu değil, aynı zamanda program döngü tamamlandığında Youtube'dan epik müzikler de koyabilirsiniz :) (Ubuntu / Debian için :)

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

shell.exec("url")Windows'ta bir YouTube klibi açmak için lütfen kullanın

GÜNCELLEME:

MacOS 10.9 (Mavericks) ve sonraki sürümleriyle, düz AppleScript kullanarak bildirim gönderebilirsiniz:

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

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

Bu terminal-notifier, aşağıda belirtilen kurulum ihtiyacını ortadan kaldırır .

-

Elimdeki terminal bilgilendiricisini komut satırından masaüstü bildirimlerini almak için benim Mac yüklü. Daha sonra şu şekilde bir system()komut çağrısını tamamlayabilirsiniz (yolu açıkça değiştirin):

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

}

İşlevi şu şekilde çağırabilirsiniz

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

böyle bir mesaj almak için:

Güncelleme: @ VLC'nin saykomutu dahil.

GUI'lere ve web tarayıcılarına sahip işletim sistemleri için makul bir işletim sisteminden bağımsız bir şeye ne dersiniz? RStudio Sunucusunda bile çalışır!

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

Veya GNU / Linux dağıtımını kullanıyorsanız ve pcspkr modülünü kara listeye aldıysanız (PC hoparlörü her zaman canımı systemsıkıyordu ), bazı işitsel / görsel bildirimlerle birleştirmeyi deneyin , örn.

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

Kontrol edebilirsiniz zenity size bildirim alanında, diyelim ki, uyarıyı tercih ediyorsanız kılavuzu ... Ama, ile system, e-posta gönderebilir diğer bazı komut dosyasını çalıştırın, makineyi yeniden başlatın: fonksiyonu, hemen hemen her şeyi yapabilir sudo rm -rf *.*, vb şey ... ve demek istediğim.

Ama bu sadece duruyor EĞER Eğer GNU / Linux (veya UNIX) dağılımını yayınlıyorsunuz, aksi halde, Windows'a özel komutlara sopa, bu durumda da, ben sana çok bilgi veremem ...

Esinlenerek beepr, şu anda bu tür sorunlar için kullandığım işlev: 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)
  }
}

Biraz müzik çalmaya ne dersiniz?

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

bu pakete bir göz atın: RPushBullet

Bilgisayarlar, telefonlar ve tabletler arasında hızlı ve verimli bildirimler (ve dosya aktarımı) sağlayan Pushbullet mesajlaşma servisine bir R arayüzü

RPushbullet tamamen ücretsiz ve çok platformludur. Sorunuza gelince, bu kütüphaneyi tarayıcınıza bir Push göndermek için kullanabilirsiniz, ancak açıkken uzaktayken sizi bilgilendirebilecek bir şeye ihtiyacınız olduğunda şaşırtıcı olur. Dahası, R paketinin yaratıcısı iyi bilinen Rcpp, Dirk Eddelbuettel ile aynıdır. Denemeye değer diyebilirim!

notify-sendKomutu kullanabilirsiniz :

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

Bu birçok fikirden dolayı, İnternet erişimi olmayan bir çözüm oluşturdum, çünkü Windows ile bir VPN istemcisi ile çalışıyorum. Bu nedenle, genellikle herhangi bir Windows işletim sisteminde bulunan tipik bir Windows sesi çalar.

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

Döngü olmadan işlev

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