倒计时用户输入提示

Question

在交互式R会话中，在后台运行倒计时实现用户输入提示的好方法是什么？例如，如果用户在10秒内没有响应，我希望以下虚拟R代码返回NA：

readline("Continue? (Y/n): ", timer=10)