r - 从 R 中的第一次击键开始计时用户输入

Question

计算用户从第一次击键开始在 R 中键入消息需要多长时间。

我可以使用像 readline() 或 scan() 这样的函数来获取用户输入，我可以使用 system.time() 来衡量代码运行需要多长时间:

> system.time(readline())
Test Message
   user  system elapsed 
   0.98    0.53   19.55

但是，这些给了我总的耗时。如果我在输入前等待 15 秒，这会反射(reflect)在 system.time() 的输出中，而不仅仅是我写消息所花费的时间。 (例如，19.55 秒 = 15 秒 + ~4.5 秒，我曾经输入消息。)

希望在控制台中发生这种情况，但也愿意在必要时使用单独的窗口。

Answer 1

我最近使用两个包的组合解决了这个问题 - tictoc 和 keypress。

在 keypress 中，您可以使用 keypress() 函数等待用户输入，然后输出按下的键 - keypress() 仅适用于命令行上的 R，它支持大多数键，但不是全部。

要从按键开始计时，您可以编写一个简单的 if 语句来调用 tictoc 中的 tic() 函数。

示例

当我发布这个问题时，我想计算某人在按下“a”键后输入整个小写字母需要多长时间。

require(tictoc)
require(keypress)

for(i in 1:26){

  a=keypress()

  if(a==letters[1])  tic()
  if(a==letters[26]) toc()

  cat(paste(a))
}

abcdefghijklmnopqrstuvwxyz6.649 sec elapsed

这会在按下“a”时启动秒表，然后在按下“z”键时停止。