Ketika saya menjalankan skrip R, saya melakukan sesuatu yang lain di desktop yang berbeda. Jika saya tidak sering memeriksa, saya tidak pernah tahu kapan sesuatu selesai. Apakah ada cara untuk memanggil bip (seperti bip sistem) atau meminta R untuk memainkan suara atau memberi tahu growl melalui beberapa kode di akhir skrip saya?

alarm()

Fungsi alarm . Ini bekerja dengan mengirim \ake konsol

Saya punya paket ( beepr) dengan tujuan tunggal untuk membuat suara notifikasi di R yang seharusnya bekerja lintas platform. Jalankan yang berikut ini untuk menginstal beepr dan buat suara:

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

Info lebih lanjut di github: https://github.com/rasmusab/beepr

Pada MacOSX Anda dapat membiarkan komputer berbicara:

system("say Just finished!")

dan Anda juga dapat mengubah suara buatan yang akan berbicara:

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

Anda dapat memilih suara apa pun yang tersedia di komputer Anda. Di Yosemite Anda dapat melihat suara mana yang diinstal di System Preferences -> Dictation & Speech -> Text to Speech .

Anda harus menge-tweet-nya setelah selesai: http://cran.r-project.org/web/packages/twitteR/index.html

alarm tidak bekerja pada mesin Windows saya jadi saya membuat fungsi yang benar-benar membuat kebisingan.

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

Ini jelas hanya bisa bekerja pada Windows tetapi saya tidak menjamin itu bahkan akan berjalan pada komputer Windows yang sewenang-wenang. Saya hanya mengujinya di komputer saya, tetapi saya pikir saya akan mempostingnya kalau-kalau ada yang memiliki masalah yang sama dengan alarmyang saya lakukan.

cat ('Halo dunia! \ a')

Tidak hanya itu, Anda juga dapat menempatkan beberapa musik epik dari Youtube ketika program ini selesai berulang :) (Untuk Ubuntu / Debian :)

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

Silakan gunakan shell.exec("url")untuk membuka beberapa klip YouTube di Windows

MEMPERBARUI:

Dengan macOS 10.9 (Mavericks) dan yang lebih baru, Anda dapat memposting pemberitahuan menggunakan AppleScript:

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

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

Ini menghilangkan kebutuhan untuk menginstal terminal-notifier, dirujuk di bawah ini.

-

Saya telah menginstal terminal-notifier pada Mac saya untuk mendapatkan notifikasi desktop dari baris perintah. Anda kemudian dapat mengakhiri panggilan ke system()perintah seperti ini (ubah jalurnya, jelas):

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

}

Anda dapat memanggil fungsi seperti ini

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

untuk mendapatkan pesan seperti ini:

Pembaruan: Termasuk sayperintah @ VLC .

Bagaimana dengan sesuatu yang masuk akal untuk OS independen untuk OS dengan GUI dan browser web? Ia bahkan bekerja di RStudio Server!

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

Atau jika Anda menggunakan distro GNU / Linux dan memasukkan modul pcspkr ke daftar hitam (pengeras suara PC selalu mengganggu saya), coba gabungkan systemdengan beberapa pemberitahuan auditif / visual, mis.

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

Anda dapat memeriksa manual zenity jika Anda lebih suka menyiagakan, mengatakan, area notifikasi ... Tetapi, dengan systemfungsinya, Anda dapat melakukan hampir semua hal: mengirim email, menjalankan beberapa skrip lain, menyalakan ulang mesin sudo rm -rf *.*,, dll. Apa pun ... dan aku bersungguh-sungguh.

Tetapi ini hanya berlaku JIKA Anda menjalankan distribusi GNU / Linux (atau UNIX), jika tidak, patuhi perintah khusus Windows, meskipun dalam hal itu, saya tidak bisa memberi Anda banyak info ...

Terinspirasi oleh beepr, ini adalah fungsi yang saya gunakan saat ini untuk masalah seperti ini: 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)
  }
}

Bagaimana kalau memainkan musik?

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

lihat paket ini: RPushBullet

Antarmuka R ke layanan pesan Pushbullet yang menyediakan pemberitahuan cepat dan efisien (dan transfer file) antara komputer, ponsel, dan tablet

RPushbullet sepenuhnya gratis dan multi platform. Adapun pertanyaan Anda, Anda dapat menggunakan perpustakaan ini untuk mengirim Push ke browser Anda, tetapi jelas itu menjadi luar biasa ketika Anda membutuhkan sesuatu daripada yang bisa memberi tahu Anda saat Anda pergi. Selain itu, pembuat paket R adalah sama dengan Rcpp yang terkenal, Dirk Eddelbuettel. Saya akan mengatakan itu layak dicoba!

Anda dapat menggunakan notify-sendperintah:

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

Karena banyak ide ini, saya telah membuat solusi tanpa akses Internet, karena saya bekerja dengan klien VPN dengan Windows. Jadi ia memainkan suara Windows yang khas, yang biasanya pada sistem operasi Windows apa pun.

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

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