blocks|key|1185649|text|alarm()|type|code-block|depth|inlineStyleRanges|entityRanges|data|syntax|javascript|1185650|alarm函数。它的工作方式是将\a发送到控制台|unstyled|offset|length|style|CODE|1185651|entityMap|0|LINK|mutability|MUTABLE|url|https://www.rdocumentation.org/packages/utils/versions/3.6.1/topics/alarm^0|0|G|2|0|5|0|0^^$0|@$1|2|3|4|5|6|7|S|8|@]|9|@]|A|$B|C]]|$1|D|3|E|5|F|7|T|8|@$G|U|H|V|I|J]]|9|@$G|W|H|X|1|Y]]|A|$]]|$1|K|3|-4|5|F|7|Z|8|@]|9|@]|A|$]]]|L|$M|$5|N|O|P|A|$Q|R]]]]

<pre><code>alarm()
</code></pre>

The <a href="https://www.rdocumentation.org/packages/utils/versions/3.6.1/topics/alarm" rel="noreferrer">alarm</a> function. It works by sending <code>\a</code> to the console

blocks|key|971825|text|我有一个包(beepr)，唯一的目的是在R中发出通知声音，它应该可以跨平台工作。运行以下命令安装beepr并发出声音：|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|971826|install.packages("beepr")
library(beepr)
beep()|code-block|syntax|javascript|971827|欲了解更多信息，请访问github：https://github.com/rasmusab/beepr|971828|entityMap|0|LINK|mutability|MUTABLE|url|https://github.com/rasmusab/beepr^0|6|5|0|0|I|X|0|0^^$0|@$1|2|3|4|5|6|7|U|8|@$9|V|A|W|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|X|8|@]|D|@]|E|$I|J]]|$1|K|3|L|5|6|7|Y|8|@]|D|@$9|Z|A|10|1|11]]|E|$]]|$1|M|3|-4|5|6|7|12|8|@]|D|@]|E|$]]]|N|$O|$5|P|Q|R|E|$S|T]]]]

I have a package (<code>beepr</code>) 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:

<pre><code>install.packages("beepr")
library(beepr)
beep()
</code></pre>

More info at github: <a href="https://github.com/rasmusab/beepr">https://github.com/rasmusab/beepr</a>

blocks|key|971310|text|当它完成时，你应该把它发到推特上：http://cran.r-project.org/web/packages/twitteR/index.html|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|971311|entityMap|0|LINK|mutability|MUTABLE|url|http://cran.r-project.org/web/packages/twitteR/index.html^0|H|1L|0|0^^$0|@$1|2|3|4|5|6|7|L|8|@]|9|@$A|M|B|N|1|O]]|C|$]]|$1|D|3|-4|5|6|7|P|8|@]|9|@]|C|$]]]|E|$F|$5|G|H|I|C|$J|K]]]]

You should have it tweet when it's done: <a href="http://cran.r-project.org/web/packages/twitteR/index.html" rel="noreferrer">http://cran.r-project.org/web/packages/twitteR/index.html</a>

blocks|key|1185845|text|alarm不能在我的Windows机上运行，所以我创建了一个真正制造噪音的函数。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1185846|beep+<-+function(n+=+3){
++++for(i+in+seq(n)){
++++++++system("rundll32+user32.dll,MessageBeep+-1")
++++++++Sys.sleep(.5)
++++}
}|code-block|syntax|javascript|1185847|这显然只能在Windows上运行，但我不能保证它能在任意一台Windows计算机上运行。我只在我的机器上测试过它，但我想我会把它发布出来，以防有人遇到和我一样的alarm问题。|1185848|entityMap^0|0|5|0|0|28|5|0^^$0|@$1|2|3|4|5|6|7|O|8|@$9|P|A|Q|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|R|8|@]|D|@]|E|$I|J]]|$1|K|3|L|5|6|7|S|8|@$9|T|A|U|B|C]]|D|@]|E|$]]|$1|M|3|-4|5|6|7|V|8|@]|D|@]|E|$]]]|N|$]]

<code>alarm</code> doesn't work on my Windows machine so I created a function that does actually make noise.

<pre><code>beep &lt;- function(n = 3){
 for(i in seq(n)){
 system("rundll32 user32.dll,MessageBeep -1")
 Sys.sleep(.5)
 }
}
</code></pre>

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 <code>alarm</code> that I do.

blocks|key|1186326|text|对于带有GUI和web浏览器的OSes来说，一些与操作系统合理无关的东西怎么样？它甚至可以在RStudio服务器上工作！|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1186327|browseURL('https://www.youtube.com/watch?v=QH2-TGUlwu4')|code-block|syntax|javascript|1186328|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

How about something reasonably OS independent for OSes with GUIs and web-browsers? It even works on RStudio Server!

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

blocks|key|971372|text|不仅如此，当程序循环结束时，你还可以放一些来自Youtube的史诗音乐:)+(对于Ubuntu/Debian:)|type|unstyled|depth|inlineStyleRanges|entityRanges|data|971373|system("xdg-open+'http://www.youtube.com/watch?v=9jK-NcRmVcw'")|code-block|syntax|javascript|971374|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

Not only that, you can also also put some epic music from Youtube when the program is done looping :) (For Ubuntu/Debian:)

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

blocks|key|1186250|text|更新：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1186251|在macOS+10.9+(小牛)和更高版本中，您可以使用普通的AppleScript发布通知：|1186252|theTitle+<-+"A+Title"
theMsg+<-+"A+message+here"

cmd+<-+paste("osascript+-e+",+"'display+notification+",+'"',+theMsg,+'"',+'+with+title+',+'"',+theTitle,+'"',+"'",+sep='')
system(cmd)|code-block|syntax|javascript|1186253|这样就不再需要安装terminal-notifier，如下所示。|offset|length|style|CODE|1186254|--|1186255|我在我的苹果电脑上安装了terminal-notifier，可以从命令行获取桌面通知。然后，您可以像这样包装对system()命令的调用(显然，更改路径)：|1186256|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))
++++}

}|1186257|您可以像这样调用该函数|1186258|notify("R+is+done",+"Message+from+R",+speakIt=TRUE)|1186259|要获得这样的消息，请执行以下操作：|1186260|​|1186261|📷|atomic|1186262|1186263|更新:包含@VLC的say命令。|1186264|entityMap|0|LINK|mutability|MUTABLE|url|https://github.com/julienXX/terminal-notifier|1|IMAGE|IMMUTABLE|imageUrl|https://ask.qcloudimg.com/http-save/yehe-900000/2899cd464d37d4c6b2a720be44c361fa.png|imageAlt^0|0|0|0|9|H|0|0|1J|8|C|H|0|0|0|0|0|0|0|0|1|1|0|0|A|3|0^^$0|@$1|2|3|4|5|6|7|1M|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|1N|8|@]|9|@]|A|$]]|$1|D|3|E|5|F|7|1O|8|@]|9|@]|A|$G|H]]|$1|I|3|J|5|6|7|1P|8|@$K|1Q|L|1R|M|N]]|9|@]|A|$]]|$1|O|3|P|5|6|7|1S|8|@]|9|@]|A|$]]|$1|Q|3|R|5|6|7|1T|8|@$K|1U|L|1V|M|N]]|9|@$K|1W|L|1X|1|1Y]]|A|$]]|$1|S|3|T|5|F|7|1Z|8|@]|9|@]|A|$G|H]]|$1|U|3|V|5|6|7|20|8|@]|9|@]|A|$]]|$1|W|3|X|5|F|7|21|8|@]|9|@]|A|$G|H]]|$1|Y|3|Z|5|6|7|22|8|@]|9|@]|A|$]]|$1|10|3|11|5|6|7|23|8|@]|9|@]|A|$]]|$1|12|3|13|5|14|7|24|8|@]|9|@$K|25|L|26|1|27]]|A|$]]|$1|15|3|11|5|6|7|28|8|@]|9|@]|A|$]]|$1|16|3|17|5|6|7|29|8|@$K|2A|L|2B|M|N]]|9|@]|A|$]]|$1|18|3|-4|5|6|7|2C|8|@]|9|@]|A|$]]]|19|$1A|$5|1B|1C|1D|A|$1E|1F]]|1G|$5|1H|1C|1I|A|$1J|1K|1L|-4]]]]

UPDATE:

With macOS 10.9 (Mavericks) and later, you can post notifications using plain AppleScript:

<pre><code>theTitle &lt;- "A Title"
theMsg &lt;- "A message here"

cmd &lt;- paste("osascript -e ", "'display notification ", '"', theMsg, '"', ' with title ', '"', theTitle, '"', "'", sep='')
system(cmd)
</code></pre>

This removes the need to install <code>terminal-notifier</code>, referenced below.

--

I've got <a href="https://github.com/julienXX/terminal-notifier" rel="nofollow noreferrer">terminal-notifier</a> installed on my Mac to get desktop notifications from the command line. You can then wrap up a call to the <code>system()</code> command like this (change the path, obviously):

<pre><code>notify &lt;- function(msgString='Message from R', titleString='Message from R', speakIt=FALSE) {
 cmd &lt;- paste('~/terminal-notifier/terminal-notifier.app/Contents/MacOS/terminal-notifier -message ', '"', msgString, '" -title "', titleString, '"', sep='')
 system(cmd)

 if (speakIt) {
 system(paste('say', msgString))
 }

}
</code></pre>

You can call the function like this

<pre><code>notify("R is done", "Message from R", speakIt=TRUE)
</code></pre>

to get a message like this:

<img src="https://i.stack.imgur.com/vuEqS.png" alt="enter image description here">

Update: Included @VLC's <code>say</code> command.

blocks|key|971716|text|请使用shell.exec("url")在Windows上打开一些YouTube剪辑|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|971717|entityMap^0|3|H|0^^$0|@$1|2|3|4|5|6|7|H|8|@$9|I|A|J|B|C]]|D|@]|E|$]]|$1|F|3|-4|5|6|7|K|8|@]|D|@]|E|$]]]|G|$]]

Please use <code>shell.exec("url")</code> to open some YouTube clip on Windows

blocks|key|1186182|text|受beepr的启发，这是我目前用来解决这类问题的函数：|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1186183|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)
++}
}|code-block|syntax|javascript|1186184|entityMap^0|1|5|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@$9|N|A|O|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|P|8|@]|D|@]|E|$I|J]]|$1|K|3|-4|5|6|7|Q|8|@]|D|@]|E|$]]]|L|$]]

Inspired by <code>beepr</code>, this is the function I'm currently using for these kind of problems :D

<pre><code>work_complete &lt;- function() {
 cat("Work complete. Press esc to sound the fanfare!!!\n")
 on.exit(beepr::beep(3))

 while (TRUE) {
 beepr::beep(4)
 Sys.sleep(1)
 }
}
</code></pre>

blocks|key|972017|text|放点音乐怎么样？|type|unstyled|depth|inlineStyleRanges|entityRanges|data|972018|shell.exec("foo/Born.to.be.wild.mp3")|code-block|syntax|javascript|972019|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

How about playing some music?

<pre><code>shell.exec("foo/Born.to.be.wild.mp3")
</code></pre>

blocks|key|1186413|text|使用微软的SpeechSynthesizer怎么样？|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|1186414|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,+"');\"")
++++++++))|code-block|syntax|javascript|1186415|这可以很好地用在迭代操作中，读起来像“第一个作业完成”，“第二个作业完成”等：|1186416|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")))|1186417|*请注意，这使用系统默认语言设置。该示例是基于英文lector的，可以使用SelectVoice方法进行更改。要检查可用的收集器，请使用：|style|CODE|1186418|++system2(command+=+"PowerShell",+
++++++++args+=+c("-Command",+
+++++++++++++++++"\"Add-Type+-AssemblyName+System.Speech;",
++++++++++++++++++"$speak+=+New-Object+System.Speech.Synthesis.SpeechSynthesizer;",
+++++++++++++++++"$speak.GetInstalledVoices().VoiceInfo")
++++++++)|1186419|这给了我们：|1186420|++++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]...}|1186421|最后是一个按“名字”选择选择器的函数，如"David"，"Paulina“或"Hazel"：|1186422|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"))|1186423|entityMap|0|LINK|mutability|MUTABLE|url|https://docs.microsoft.com/pl-pl/dotnet/api/system.speech.synthesis.speechsynthesizer?view=netframework-4.8^0|5|H|0|0|0|0|0|11|B|0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|18|8|@]|9|@$A|19|B|1A|1|1B]]|C|$]]|$1|D|3|E|5|F|7|1C|8|@]|9|@]|C|$G|H]]|$1|I|3|J|5|6|7|1D|8|@]|9|@]|C|$]]|$1|K|3|L|5|F|7|1E|8|@]|9|@]|C|$G|H]]|$1|M|3|N|5|6|7|1F|8|@$A|1G|B|1H|O|P]]|9|@]|C|$]]|$1|Q|3|R|5|F|7|1I|8|@]|9|@]|C|$G|H]]|$1|S|3|T|5|6|7|1J|8|@]|9|@]|C|$]]|$1|U|3|V|5|F|7|1K|8|@]|9|@]|C|$G|H]]|$1|W|3|X|5|6|7|1L|8|@]|9|@]|C|$]]|$1|Y|3|Z|5|F|7|1M|8|@]|9|@]|C|$G|H]]|$1|10|3|-4|5|6|7|1N|8|@]|9|@]|C|$]]]|11|$12|$5|13|14|15|C|$16|17]]]]

How about using Windows <a href="https://docs.microsoft.com/pl-pl/dotnet/api/system.speech.synthesis.speechsynthesizer?view=netframework-4.8" rel="nofollow noreferrer">SpeechSynthesizer</a>?
<pre><code>message &lt;- &quot;job done!&quot;

system2(command = &quot;PowerShell&quot;, 
 args = c(&quot;-Command&quot;, 
 &quot;\&quot;Add-Type -AssemblyName System.Speech;&quot;,
 &quot;$speak = New-Object System.Speech.Synthesis.SpeechSynthesizer;&quot;,
 paste0(&quot;$speak.Speak('&quot;, message, &quot;');\&quot;&quot;)
 ))
 
</code></pre>
This may by nicely used in iterating operations and read something like &quot;First job done&quot;, &quot;Second job done&quot; etc.:
<pre><code>say_something &lt;- function(message) {
 
 message &lt;- paste0(&quot;$speak.Speak('&quot;, message, &quot;');\&quot;&quot;)
 
 system2(command = &quot;PowerShell&quot;, 
 args = c(&quot;-Command&quot;, 
 &quot;\&quot;Add-Type -AssemblyName System.Speech;&quot;,
 &quot;$speak = New-Object System.Speech.Synthesis.SpeechSynthesizer;&quot;,
 
 message
 ))
 }

operations &lt;- c(&quot;1st.&quot;, &quot;2nd.&quot;, &quot;3rd.&quot;)
lapply(operations, function(x) say_something(message=paste(x, &quot;job done&quot;)))

 
</code></pre>
*Note, that this uses system defaul language settings. The example is based on english lector, it can be changed using <code>SelectVoice</code> method. To check available lectors use:
<pre><code> system2(command = &quot;PowerShell&quot;, 
 args = c(&quot;-Command&quot;, 
 &quot;\&quot;Add-Type -AssemblyName System.Speech;&quot;,
 &quot;$speak = New-Object System.Speech.Synthesis.SpeechSynthesizer;&quot;,
 &quot;$speak.GetInstalledVoices().VoiceInfo&quot;)
 )
</code></pre>
That gives:
<pre><code> 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]...}
</code></pre>
Finally a function to select the lector by his &quot;name&quot; like &quot;David&quot;, &quot;Paulina&quot; or &quot;Hazel&quot;:
<pre><code>say_something &lt;- function(message , voice) {
 
 voice &lt;- paste0(&quot;\&quot;$speak.SelectVoice('Microsoft &quot;, voice, &quot; Desktop');&quot; )
 message &lt;- paste0(&quot;$speak.Speak('&quot;, message, &quot;');\&quot;&quot;)
 
 system2(command = &quot;PowerShell&quot;, 
 args = c(&quot;-Command&quot;, 
 &quot;\&quot;Add-Type -AssemblyName System.Speech;&quot;,
 &quot;$speak = New-Object System.Speech.Synthesis.SpeechSynthesizer;&quot;,
 voice,
 message
 ))
}


operations &lt;- c(&quot;1st.&quot;, &quot;2nd.&quot;, &quot;3rd.&quot;)

lapply(operations, function(x) say_something(message=paste(x, &quot;job done&quot;), voice=&quot;David&quot;))
</code></pre>

blocks|key|1186488|text|执行以下操作：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1186489|song+<-+function()+{
++++for(i+in+1:2)+{
++++++++for(i+in+1:4)+{
++++++++++++for(i+in+1:4)+{
++++++++++++++++beep(7)
++++++++++++++++Sys.sleep(0.25)
++++++++++++++++beep()
++++++++++++++++Sys.sleep(0.22)
++++++++++++}
++++++++++++beep(2)
++++++++}
++++++++beep(11)
++++}
++++beep(4)
}+

song()|code-block|syntax|javascript|1186490|你可以即兴发挥出来。|1186491|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|L|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|M|8|@]|9|@]|A|$]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

Do this:
<pre><code>song &lt;- function() {
 for(i in 1:2) {
 for(i in 1:4) {
 for(i in 1:4) {
 beep(7)
 Sys.sleep(0.25)
 beep()
 Sys.sleep(0.22)
 }
 beep(2)
 }
 beep(11)
 }
 beep(4)
} 

song()
</code></pre>
You can jam out to it.

blocks|key|1186307|text|您可以使用notify-send命令：|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1186308|system("notify-send+\"R+script+finished+running\"")|code-block|syntax|javascript|1186309|entityMap^0|5|B|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@$9|N|A|O|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|P|8|@]|D|@]|E|$I|J]]|$1|K|3|-4|5|6|7|Q|8|@]|D|@]|E|$]]]|L|$]]

You can use <code>notify-send</code> command:

<pre><code>system("notify-send \"R script finished running\"")
</code></pre>

blocks|key|972075|text|由于有这么多想法，我创建了一个没有Internet访问的解决方案，因为我使用的是带有Windows的VPN客户端。所以它播放一个典型的Windows声音，这通常是在任何Windows操作系统上。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|972076|#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)
++++++}
++++}|code-block|syntax|javascript|972077|函数不带循环|972078|++++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)
++++}|972079|entityMap^0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|N|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|O|8|@]|9|@]|A|$]]|$1|I|3|J|5|D|7|P|8|@]|9|@]|A|$E|F]]|$1|K|3|-4|5|6|7|Q|8|@]|9|@]|A|$]]]|L|$]]

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.

<pre><code>#Function with loop, press Esc to stopp 
 alarm2 &lt;- 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)
 }
 }
</code></pre>

<h1>Function without loop</h1>

<pre><code> alarm3 &lt;- 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)
 }
</code></pre>

blocks|key|972184|text|下面的代码会产生蜂鸣声，并且不依赖于.mp3或.wav文件：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|972185|switch(Sys.info()[['sysname']],
Linux+=+{
++++system('play+-n+synth+0.1+tri++1000.0')}
)|code-block|syntax|javascript|972186|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

The following code produces a beep and does not depend on a .mp3 or .wav file:
<pre><code>switch(Sys.info()[['sysname']],
Linux = {
 system('play -n synth 0.1 tri 1000.0')}
)
</code></pre>

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?

Is there a way to make R beep/play a sound at the end of a script?

服务器

Windows

Ubuntu

Debian

Linux

MacOS

当我运行R脚本时，我会在不同的桌面上做一些其他的事情。如果我不经常检查，我永远不会知道什么时候完成。有没有办法调用嘟嘟声(就像系统发出的嘟嘟声)，或者让R播放声音，或者通过脚本末尾的一些代码通知咆哮？

问有没有办法让R嘟嘟声/在脚本结束时播放声音？
EN

回答 15

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问有没有办法让R嘟嘟声/在脚本结束时播放声音？EN

回答 15

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问有没有办法让R嘟嘟声/在脚本结束时播放声音？
EN