在 R 命令行中显示时钟

发布于 2024-10-03 19:23:05 字数 256 浏览 5 评论 0原文

我想知道是否有一种方法可以在 R 命令行中显示当前时间，就像在 MS DOS 中一样，我们可以使用

Prompt $T $P$G

在每个提示行中包含时钟。类似的事情

options(prompt=paste(format(Sys.time(), "%H:%M:%S"),"> "))

会做到这一点，但随后它在设置时就被修复了。我不知道如何让它自动更新。

原文

I wonder if there is a way to display the current time in the R command line, like in MS DOS, we can use

Prompt $T $P$G

to include the time clock in every prompt line.
Something like

options(prompt=paste(format(Sys.time(), "%H:%M:%S"),"> "))

will do it, but then it is fixed at the time it was set. I'm not sure how to make it update automatically.

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

多彩岁月 2024-10-10 19:23:05

Chase 指出了正确的方法，因为 options("prompt"=...) 可以用于此目的。但他的解决方案添加了一个常数时间表达式，这不是我们想要的。

函数 taskCallbackManager 的文档包含其余内容：

R> h <- taskCallbackManager()
R> h$add(function(expr, value, ok, visible) { 
+     options("prompt"=format(Sys.time(), "%H:%M:%S> ")); 
+             return(TRUE) }, 
+     name = "simpleHandler")
[1] "simpleHandler"
07:25:42> a <- 2
07:25:48>

我们注册一个回调，该回调在每个命令完成后进行评估。这就是窍门。更精彩的文档位于 R 开发者网站的本文档。

Chase points the right way as options("prompt"=...) can be used for this. But his solutions adds a constant time expression which is not what we want.

The documentation for the function taskCallbackManager has the rest:

R> h <- taskCallbackManager()
R> h$add(function(expr, value, ok, visible) { 
+     options("prompt"=format(Sys.time(), "%H:%M:%S> ")); 
+             return(TRUE) }, 
+     name = "simpleHandler")
[1] "simpleHandler"
07:25:42> a <- 2
07:25:48>

We register a callback that gets evaluated after each command completes. That does the trick. More fancy documentation is in this document from the R developer site.

回复收藏 0 原文

夜清冷一曲。 2024-10-10 19:23:05

除非执行顶级命令，否则基于回调的其他方法都不会更新提示。因此，在控制台中按回车键不会产生更改。这就是 R 标准回调处理的本质。

如果安装 tcltk2 软件包，您可以设置一个任务调度程序来更改 option()，如下所示：

library(tcltk2)
tclTaskSchedule(1000, {options(prompt=paste(Sys.time(),"> "))}, id = "ticktock", redo = TRUE)

瞧，类似于 MS DOS 提示符。

注意：灵感来自这个答案。

注意 1：等待时间（本例中为 1000）指的是毫秒数，而不是秒数。当亚秒分辨率在某种程度上有用时，您可以向下调整它。

None of the other methods, which are based on callbacks, will update the prompt unless a top-level command is executed. So, pressing return in the console will not create a change. Such is the nature of R's standard callback handling.

If you install the tcltk2 package, you can set up a task scheduler that changes the option() as follows:

library(tcltk2)
tclTaskSchedule(1000, {options(prompt=paste(Sys.time(),"> "))}, id = "ticktock", redo = TRUE)

Voila, something like the MS DOS prompt.

NB: Inspiration came from this answer.

Note 1: The wait time (1000 in this case) refers to the # of milliseconds, not seconds. You might adjust it downward when sub-second resolution is somehow useful.

回复收藏 0 原文

多情癖 2024-10-10 19:23:05

这是另一种回调解决方案：

updatePrompt <- function(...) {options(prompt=paste(Sys.time(),"> ")); return(TRUE)}
addTaskCallback(updatePrompt)

这与 Dirk 的方法相同，但语法对我来说更简单一些。

Here is an alternative callback solution:

updatePrompt <- function(...) {options(prompt=paste(Sys.time(),"> ")); return(TRUE)}
addTaskCallback(updatePrompt)

This works the same as Dirk's method, but the syntax is a bit simpler to me.

回复收藏 0 原文

如梦亦如幻 2024-10-10 19:23:05

您可以通过 options() 命令更改显示的默认字符。您可能想尝试这样的操作：

options(prompt = paste(Sys.time(), ">"))

查看 ?options 的帮助页面，获取可以设置的完整列表。这是一个非常有用的知识！

假设您希望为每个 R 会话执行此操作，请考虑将其移至您的 .Rprofile。关于该主题，可以在这里找到其他一些关于编程快乐的好东西。

You can change the default character that is displayed through the options() command. You may want to try something like this:

options(prompt = paste(Sys.time(), ">"))

Check out the help page for ?options for a full list of things you can set. It is a very useful thing to know about!

Assuming this is something you want to do for every R session, consider moving that to your .Rprofile. Several other good nuggets of programming happiness can be found hither on that topic.

回复收藏 0 原文