When I run R scripts I go do something else on a different desktop. If I don't check frequently, I never know when something is finished. Is there a way to invoke a beep (like a system beep) or get R to play a sound or notify growl via some code at the end of my script?
alarm()
The alarm function. It works by sending \a
to the console
-
1Simple and perfect, but useless if you've disabled PC speaker. Though I have no idea how does it run on Windows. – aL3xa Jul 29 '10 at 19:07
-
@Mulone: works for me, MacOSX 10.11.1, R 3.2.2; you hear the faint "poump" sound. – Benjamin Nov 12 '15 at 0:32
-
7Doesn't work for me on Windows 7, x64, R 3.2.2. The
beepr
package below works fine though. – Augustin Jan 8 '16 at 18:17
I have a package (beepr
) with the sole purpose of making notification sounds in R which should work cross-platform. Run the following to install beepr and make a sound:
install.packages("beepr")
library(beepr)
beep()
More info at github: https://github.com/rasmusab/beepr
-
4Sure! You just have to wrap it into a function like this:
options(error = function() {beep(9)})
. Super irritating though :) – Rasmus Bååth Sep 3 '14 at 8:47 -
3Hooray! It works on my Windows 7 machine when some of the other suggestions didn't. – jeramy townsley Feb 20 '15 at 3:49
-
5
-
2@lukeA
while (1) beepr::beep(3)
was that as weird for you as it was for me? :} – rawr Mar 4 '16 at 21:44 -
2it seems that stringr is only used for detecting file format? it make sense to strip out this dependency so it is easier to install on server – jangorecki Aug 22 '19 at 9:04
On MacOSX you can let the computer speak:
system("say Just finished!")
and you can also change the artificial voice that will speak:
system("say -v Kathy Just finished!")
You can pick any voice that is available on your computer. On Yosemite you can see which voices are installed in System Preferences -> Dictation & Speech -> Text to Speech.
You should have it tweet when it's done: http://cran.r-project.org/web/packages/twitteR/index.html
-
2Ken: That is f'ing brilliant! Now I don't even have to hang in the same room. I can go to happy hour and have a beer or few till I see a dm saying code is done! I just tried it out and it works great. – Maiasaura Jul 29 '10 at 22:32
alarm
doesn't work on my Windows machine so I created a function that does actually make noise.
beep <- function(n = 3){
for(i in seq(n)){
system("rundll32 user32.dll,MessageBeep -1")
Sys.sleep(.5)
}
}
This clearly could only work on Windows but I don't guarantee it will even run on an arbitrary Windows computer. I've only tested it on my machine but I figured I'd post it in case anybody has the same problem with alarm
that I do.
-
1Weird.
alarm()
makes my machine make a noise (XP, running R interactively) – BenBarnes Aug 29 '12 at 9:14 -
1
-
@drknexus The other options didn't work on my machine. This one worked on my machine. I never claimed it would work on any arbitrary machine but only provided it since
alarm()
didn't work on my machine and for some reason this does. – Dason Feb 28 '13 at 0:24
cat('Hello world!\a')
-
Sorry Mario but that does not help at all. If I can see the screen then I can most certainly tell when it's done. I don't need to output anything more. I was looking for something audible. Sorry I dinged your answer (can't seem to undo that). – Maiasaura Jul 29 '10 at 22:36
-
5Why is this getting downvoted? Look at the
alarm
source and you will see that what it does is just acat("\a")
call. – nico Jul 30 '10 at 6:38 -
Well, what do you know... here's a description: Gives an audible or visual signal to the user. but it's the same thing as
cat("foo\a")
. Maybe the users have read this ascat("Hello world!\n")
? Hard to tell... – aL3xa Jul 30 '10 at 11:38 -
2Didn't realize alarm() = cat('\a'), thanks for the tip. As a side note one can also do '\a' in C and C++ (which is how I have been using it to notify me of things being done). A second side note, if you are on OS X and do 'System Preferences' > 'Universal Access' > 'Hearing' > enable 'Flash the screen...' your whole screen blinks when 'a' is executed. – mpk Jul 30 '10 at 16:46
Not only that, you can also also put some epic music from Youtube when the program is done looping :) (For Ubuntu/Debian:)
system("xdg-open 'http://www.youtube.com/watch?v=9jK-NcRmVcw'")
-
-
1
How about something reasonably OS independent for OSes with GUIs and web-browsers? It even works on RStudio Server!
browseURL('https://www.youtube.com/watch?v=QH2-TGUlwu4')
-
6
Please use shell.exec("url")
to open some YouTube clip on Windows
-
This is approach is underrated. Relatively long signal but easily silenced signal generated (as opposed to a brief /a). – russellpierce Feb 28 '13 at 0:32
-
... I provide an answer of the same type below that should work on platforms other than Windows. – russellpierce Aug 14 '18 at 3:46
UPDATE:
With macOS 10.9 (Mavericks) and later, you can post notifications using plain AppleScript:
theTitle <- "A Title"
theMsg <- "A message here"
cmd <- paste("osascript -e ", "'display notification ", '"', theMsg, '"', ' with title ', '"', theTitle, '"', "'", sep='')
system(cmd)
This removes the need to install terminal-notifier
, referenced below.
--
I've got terminal-notifier installed on my Mac to get desktop notifications from the command line. You can then wrap up a call to the system()
command like this (change the path, obviously):
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))
}
}
You can call the function like this
notify("R is done", "Message from R", speakIt=TRUE)
to get a message like this:
Update: Included @VLC's say
command.
Or if you're using GNU/Linux distro and have pcspkr module blacklisted (PC speaker was always annoying me), try combining system
with some auditive/visual notification, e.g.
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
You can check zenity manual if you prefer alert in, say, notification area... But, with system
function, you can do pretty much anything: send an email, run some other script, reboot the machine, sudo rm -rf *.*
, etc. anything... and I mean it.
But this stands only IF you're running GNU/Linux (or UNIX) distribution, otherwise, stick to Windows specific commands, though in that case, I can't give you much info...
-
7The MacOSX equivalent to this is the
growlnotify
script (packaged with Growl (growl.info):system("growlnotify -t 'R script info' -m 'Finished!'")
– Michael Dunn Jul 30 '10 at 9:00
Inspired by beepr
, this is the function I'm currently using for these kind of problems :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)
}
}
take a look at this package: RPushBullet
An R interface to the Pushbullet messaging service which provides fast and efficient notifications (and file transfer) between computers, phones and tablets
RPushbullet is completely free and multi platform. As for your question, you can use this library to send a Push to your browser, but obviously it becomes amazing when you need something than can notify you while you are away. Moreover, the creator of the R package is the same of the well known Rcpp, Dirk Eddelbuettel. I'd say it's worth a shot!
You can use notify-send
command:
system("notify-send \"R script finished running\"")
-
4
Because of these many ideas, I have created a solution without Internet access, because I work with a VPN client with Windows. So it plays a typical Windows sound, which is usually on any Windows operating system.
#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)
}
}
Function without 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)
}
-
1Though you have answered this question in well format, Please refer this help page for better way to answer How do I write a good answer? – v8-E Oct 1 '18 at 10:01
How about using Windows SpeechSynthesizer?
message <- "job done!"
system2(command = "PowerShell",
args = c("-Command",
"\"Add-Type -AssemblyName System.Speech;",
"$speak = New-Object System.Speech.Synthesis.SpeechSynthesizer;",
paste0("$speak.Speak('", message, "');\"")
))
This may by nicely used in iterating operations and read something like "First job done", "Second job done" etc.:
say_something <- function(message) {
message <- paste0("$speak.Speak('", message, "');\"")
system2(command = "PowerShell",
args = c("-Command",
"\"Add-Type -AssemblyName System.Speech;",
"$speak = New-Object System.Speech.Synthesis.SpeechSynthesizer;",
message
))
}
operations <- c("1st.", "2nd.", "3rd.")
lapply(operations, function(x) say_something(message=paste(x, "job done")))
*Note, that this uses system defaul language settings. The example is based on english lector, it can be changed using SelectVoice
method. To check available lectors use:
system2(command = "PowerShell",
args = c("-Command",
"\"Add-Type -AssemblyName System.Speech;",
"$speak = New-Object System.Speech.Synthesis.SpeechSynthesizer;",
"$speak.GetInstalledVoices().VoiceInfo")
)
That gives:
Gender : Female
Age : Adult
Name : Microsoft Paulina Desktop
Culture : pl-PL
Id : TTS_MS_PL-PL_PAULINA_11.0
Description : Microsoft Paulina Desktop - Polish
SupportedAudioFormats : {}
AdditionalInfo : {[Age, Adult], [Gender, Female], [Language, 415], [Name, Microsoft Paulina Desktop]...}
Gender : Male
Age : Adult
Name : Microsoft David Desktop
Culture : en-US
Id : TTS_MS_EN-US_DAVID_11.0
Description : Microsoft David Desktop - English (United States)
SupportedAudioFormats : {}
AdditionalInfo : {[Age, Adult], [Gender, Male], [Language, 409], [Name, Microsoft David Desktop]...}
Finally a function to select the lector by his "name" like "David", "Paulina" or "Hazel":
say_something <- function(message , voice) {
voice <- paste0("\"$speak.SelectVoice('Microsoft ", voice, " Desktop');" )
message <- paste0("$speak.Speak('", message, "');\"")
system2(command = "PowerShell",
args = c("-Command",
"\"Add-Type -AssemblyName System.Speech;",
"$speak = New-Object System.Speech.Synthesis.SpeechSynthesizer;",
voice,
message
))
}
operations <- c("1st.", "2nd.", "3rd.")
lapply(operations, function(x) say_something(message=paste(x, "job done"), voice="David"))