【独家发布】R代码执行结束后自动通知的一个简单的办法

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

前段时间，坛友讨论R程序执行进度条的问题。
有些模型运行起来确实比较耗时，现场守着，肯定很无聊。所以，有同学想能不能程序运行结束后，报警通知。
试了几种方法：
1、utils包的alarm()，放在代码中，可能是系统的原因，感觉没什么作用。
2、rcpp包sourceCpp()，写了一段代码，想调用windows.h中的Beep()，始终无法通过，感觉还是我的电脑的问题。
3、转了一圈儿，想起base包system()。才发现，用一种不那么高大上的方式解决问题，竟然是最简单的。、
具体地：
在模型代码结束时，或者在某行代码结束时，或者某个循环结束时，加下面一行代码就好。

1. system(
   
2.   paste(
   
3.     '"c:/Program Files/Windows Media Player/wmplayer.exe"',
   
4.     'd:/rwork/kkth.mp3'
   
5.   ),
   
6.   wait = FALSE,
   
7.   invisible = FALSE
   
8. )

复制代码

如此，你的模型跑完后，R会调用Windows Media Player播放你指定的mp3。

请留意按照你的电脑情况修改Windows Media Player路径和mp3路径，而且别忘了打开小喇叭的音量哦。


简单吧，不过对跑大数据的娃们还是很实用的，他干他的活，你可以去睡觉去啦。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：R代码 invisible Windows visible Program 实用

多承抬爱，惶恐至极。