Коли я запускаю сценарії R, я йду робити щось інше на іншому робочому столі. Якщо я не перевіряю часто, я ніколи не знаю, коли щось закінчено. Чи є спосіб викликати звуковий сигнал (наприклад, системний звуковий сигнал) або змусити R відтворити звук або повідомити гарчання через якийсь код в кінці мого сценарію?

alarm()

Функція тривоги . Це працює, надсилаючи \aна консоль

У мене є пакет ( beepr) з єдиною метою видавати звуки сповіщень на R, який повинен працювати міжплатформним. Виконайте наступне, щоб встановити звуковий сигнал і видати звук:

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

Більше інформації на github: https://github.com/rasmusab/beepr

На MacOSX ви можете дозволити комп'ютеру говорити:

system("say Just finished!")

і ви також можете змінити штучний голос, який буде говорити:

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

Ви можете вибрати будь-який голос, який є на вашому комп’ютері. На Yosemite ви можете бачити, які голоси встановлені в System Preferences -> Dictation & Speech -> Text to Speech .

Ви повинні мати його твіт, коли це зроблено: http://cran.r-project.org/web/packages/twitteR/index.html

alarm не працює на моїй машині Windows, тому я створив функцію, яка насправді шумить.

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

Це, очевидно, може працювати лише в Windows, але я не гарантую, що він буде працювати навіть на довільному комп'ютері Windows. Я протестував це лише на своїй машині, але я подумав, що опублікую його, якщо хтось має таку ж проблему, alarmщо і я.

cat ("Привіт, світ! \ a")

Мало того, ви також можете розмістити епічну музику з Youtube, коли програма робиться в циклі :) (Для Ubuntu / Debian :)

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

Будь ласка, використовуйте, shell.exec("url")щоб відкрити якийсь кліп YouTube у Windows

ОНОВЛЕННЯ:

За допомогою macOS 10.9 (Mavericks) та новіших версій ви можете публікувати повідомлення за допомогою звичайного AppleScript:

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

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

Це усуває необхідність встановлення terminal-notifier, на яку посилається нижче.

-

У мене на комп’ютері встановлений термінальний сповіщувач, щоб отримувати сповіщення на робочому столі з командного рядка. Потім ви можете завершити виклик такої system()команди (очевидно, змінити шлях):

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

}

Ви можете назвати функцію так

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

щоб отримати таке повідомлення:

Оновлення: включена sayкоманда @ VLC .

Як щодо щось розумно ОС, незалежне для ОС з графічними інтерфейсами та веб-браузерами? Він навіть працює на сервері RStudio!

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

Або якщо ви використовуєте дистрибутив GNU / Linux і маєте модуль pcspkr у чорний список (динамік ПК мене завжди дратував), спробуйте поєднати systemз деяким аудіо / візуальним сповіщенням, наприклад

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

Ви можете перевірити Zenity керівництва , якщо ви віддаєте перевагу попередження, скажімо, в області сповіщень ... Але, з systemфункцією, ви можете робити майже все: надіслати електронною поштою, запустити інший скрипт, перезавантажте комп'ютер, sudo rm -rf *.*і т.д. нічого ... і я маю на увазі це.

Але це означає лише те, якщо ви використовуєте GNU / Linux (або UNIX) розповсюдження, інакше дотримуйтесь певних команд Windows, хоча в такому випадку я не можу дати вам багато інформації ...

Натхненна beeprцією функцією, яку я зараз використовую для таких проблем: 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)
  }
}

Як щодо музики?

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

погляньте на цей пакет: RPushBullet

Інтерфейс R до служби обміну повідомленнями Pushbullet, який забезпечує швидке та ефективне сповіщення (та передачу файлів) між комп’ютерами, телефонами та планшетами

RPushbullet - це абсолютно безкоштовна та багатоплатформна платформа. Що стосується вашого питання, ви можете використовувати цю бібліотеку, щоб надіслати Push у ваш браузер, але очевидно, що це стає дивовижним, коли вам потрібно щось, ніж можна сповістити вас, коли ви не вдома. Більше того, творцем пакету R є той самий відомий Rcpp, Дірк Еддельбуеттель. Я б сказав, що варто зняти!

Ви можете використовувати notify-sendкоманду:

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

Через ці багато ідей я створив рішення без доступу до Інтернету, оскільки працюю з клієнтом VPN з Windows. Так він відтворює типовий звук для Windows, який зазвичай є в будь-якій операційній системі 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)
      }
    }

Функція без циклу

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