我需要一个R循环才能继续运行,直到用户按下某个键。像下面这样的东西。有任何想法吗?我是R的新手
while(FALSE_after_user_input){
queryWebApi()
Sys.sleep(1)
}
编辑1
我真正想要的是一种停止数据收集的方法。我有一个函数,我想每隔几秒运行一次以查询新数据。用户需要能够停止数据收集循环。
readline()不会停止执行数据收集循环
答案 0 :(得分:2)
建议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
,编写一个返回kbhit
函数输出的函数(C
),然后运行循环。 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)
}
P.S。我通过谷歌搜索一起攻击了这个,所以不幸的是我不知道它是如何工作的或为什么工作(如果它对你有用的话。)。