带键盘输入的断开循环(R)

2019年7月21日 214次阅读

我需要一个R循环继续运行,直到用户按下一个键.像下面这样的东西.有任何想法吗？我是R的新手

while(FALSE_after_user_input){
  queryWebApi()
  Sys.sleep(1)
}

编辑1

我真正想要的是一种停止数据收集的方法.我有一个函数,我想每隔几秒运行一次以查询新数据.用户需要能够停止数据收集循环.

readline()不起作用,因为它停止执行数据收集循环

最佳答案 建议1：
TCL/TK

library(tcltk)
win1 <- tktoplevel()
butStop <- tkbutton(win1, text = "Stop",
  command = function() {
    assign("stoploop", TRUE, envir=.GlobalEnv)
    tkdestroy(win1)
})
tkgrid(butStop)

stoploop <- FALSE
while(!stoploop) {
    cat(". ")
    Sys.sleep(1)
}
cat("\n")

一些代码借鉴于：A button that triggers a function call.

建议2：对标准输入进行无阻塞检查. (请注意：C不是我的核心竞争力,我从互联网上的位上拼凑出来.)主要思想是在C中编写一个等待用户输入的函数,并从R调用它.

下面的片段改编自Non-blocking user input in loop.将以下代码保存为kbhit.c：

#include <stdio.h>
#include <unistd.h>
#include <R.h>

void kbhit(int *result)
{
    struct timeval tv;
    fd_set fds;
    tv.tv_sec = 0;
    tv.tv_usec = 0;
    FD_ZERO(&fds);
    FD_SET(STDIN_FILENO, &fds); //STDIN_FILENO is 0
    select(STDIN_FILENO+1, &fds, NULL, NULL, &tv);
    *result = FD_ISSET(STDIN_FILENO, &fds);
}

然后,从命令行运行R CMD SHLIB kbhit.c以将其编译为R.

最后,在R中,加载新创建的kbhit.so,编写一个返回C函数输出的函数(kbhit),然后运行循环. kbhit()返回0,除非它收到回车键.请注意,停止循环的唯一方法是按Enter / return(或硬中断) – 如果您想要更灵活的方法,请参阅上面的链接.

dyn.load("kbhit.so")

kbhit <- function() {
    ch <- .C("kbhit", result=as.integer(0))
    return(ch$result)
}

cat("Hit <enter> to stop\n")
while(kbhit()==0) {
    cat(". ")
    Sys.sleep(1)
}

More details on the .C interface to R.

在Windows机器上：

kbhit.c

#include <stdio.h>
#include <conio.h>
#include <R.h>

void do_kbhit(int *result) {
    *result = kbhit();
}

在R：

dyn.load("kbhit.dll")

kbhit <- function() {
    ch <- .C("do_kbhit", result=as.integer(0))
    return(ch$result)
}

cat("Hit any key to stop\n")
while(kbhit()==0) {
    cat(". ")
    Sys.sleep(1)
}

附：我通过谷歌搜索一起攻击这个,所以不幸的是我不知道它是如何工作的或为什么工作(如果它对你有用的话！).

点赞