Create Desktop Notifications From R

Create Desktop Notifications From R

前不久看到的一篇推文: Create Desktop Notifications from R to improve your Data Science Productivity。里面介绍了这样的一个 R 包: notifier,该包可以让你从 R / RStudio 创建桌面通知。

安装

1
devtools::install_github("gaborcsardi/notifier")

使用

1
2
3
4
5
library(notifier)
notify(
title = "警告!",
msg = c("你好,世界!")
)

我们还可以创建一个复杂一点的例子:

1
2
3
4
5
6
7
notify(
title = "世界时钟",
msg = c(paste0(" 北京 - ", format(Sys.time(), format = "%H:%M:%S" ,tz = "Asia/Shanghai"),"\n",
paste0("印度 - ", format(Sys.time(), format = "%H:%M:%S" ,tz = "Asia/Calcutta"),"\n",
paste0("新加坡 - ", format(Sys.time(), format = "%H:%M:%S" ,tz = "Asia/Singapore"),"\n"))
)
))

创建今日语录

1
2
3
4
5
6
# install.packages("randquotes")
library(randquotes)
notify(
title = "Quote of the Day",
msg = c(randquote_simple())
)

如果你的当前窗口不是 RStudio / R,这条通知是可以弹出来的:

再来个中文版的?

1
2
3
4
5
6
7
# remotes::install_github('pzhaonet/sinx', build = TRUE, build_opts = c("--no-resave-data", "--no-manual"))
library(sinx)
(sinx <- sinx())
notify(
title = "今日语录",
msg = paste0(sinx$quote, "\n--", sinx$author, "\n", sinx$date)
)

作用

该包的作用是不言而喻的,如果你的 R 程序耗时良久,那你经常会暂时隐藏 RStudio 进行其它工作,为了让你能在 R 程序运行完成之后及时被提醒,你可以在程序的结尾设置一天提醒,甚至你还可以在程序可能运行出错的地方设置提醒。

# R

评论

Your browser is out-of-date!

Update your browser to view this website correctly. Update my browser now

×