Когда я запускаю R-скрипты, я делаю что-то еще на другом рабочем столе. Если я не часто проверяю, я никогда не знаю, когда что-то закончено. Есть ли способ вызвать гудок (например, системный гудок) или заставить R воспроизвести звук или уведомить рычание через какой-то код в конце моего сценария?

alarm()

Функция будильника . Работает, отправив \aна консоль

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

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

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

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

system("say Just finished!")

и вы также можете изменить искусственный голос, который будет говорить:

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

Вы можете выбрать любой голос, который доступен на вашем компьютере. На Yosemite вы можете увидеть, какие голоса установлены в Системные настройки -> Диктовка и речь -> Текст в речь .

Вы должны получить твит, когда это будет сделано: 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, как у меня.

кошка ('Привет, мир! \ 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, на которую ссылаются ниже.

-

У меня есть терминальный-уведомитель , установленный на моем Mac , чтобы получать уведомления на рабочий стол из командной строки. Затем вы можете завершить вызов 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)

чтобы получить сообщение, подобное этому:

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

Как насчет чего-то достаточно независимого от ОС для ОС с графическим интерфейсом и веб-браузерами? Это даже работает на RStudio Server!

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