R/Rstudio：是否有监视功能来持续监视某些值？
我在一个相当大的数据帧上运行了很多不同的操作。这对维护来说开始是一件痛苦的事情，特别是一些数据格式不正确，我正在寻找一些选项来简化我的生活 问题在于，在操作流程中的某一点上，NAs被引入了几行，包括id（当然是由于某些错误的子集）。现在我无法轻易找到罪魁祸首，因为我每次都可以在Rstudio中查看它。。。这需要时间，我已经做了一次，但没有发现坏的操作 所以我很好奇，是否有什么软件包可以解决这个问题，或者有什么方法可以编写“类似守护进程”的程序，在出现特定值时弹出警告消息 while循环没有帮助，因为它计算所有语句，当然，在某一点上，条件不是真的，当它停止时，它不会打印R/Rstudio：是否有监视功能来持续监视某些值？,r,rstudio,R,Rstudio,我在一个相当大的数据帧上运行了很多不同的操作。这对维护来说开始是一件痛苦的事情，特别是一些数据格式不正确，我正在寻找一些选项来简化我的生活 问题在于，在操作流程中的某一点上，NAs被引入了几行，包括id（当然是由于某些错误的子集）。现在我无法轻易找到罪魁祸首，因为我每次都可以在Rstudio中查看它。。。这需要时间，我已经做了一次，但没有发现坏的操作 所以我很好奇，是否有什么软件包可以解决这个问题，或者有什么方法可以编写“类似守护进程”的程序，在出现特定值时弹出警告消息 while循环没有帮助，
while(nrow(df[is.na(df$id),]) > 0){
statements OK
breaking statement
other OK statements
}
编辑：谢谢你的有用评论，我肯定会更多地研究这些功能。不过，我也尝试为自己构建一个手表功能（请参见我的答案）。好吧，我想我终于构建了类似的功能： 这是一个函数，用于在满足给定条件之前为每行源文件行：
watchIt <- function(file,watchexpression,startwatchline){
line <- 1
sourceList <- scan(file = "source_test.R", what="character", sep="\n", blank.lines.skip = FALSE)
maxLines <- length(sourceList)
while(startwatchline > line && maxLines >= line){
cat("l")
eval(parse(text=sourceList[line]))
line <- line+1
cat(line)
cat(" ")
}
while(eval(parse(text=watchexpression)) == FALSE && maxLines >= line){
cat(" L")
eval(parse(text=sourceList[line]))
line <- line+1
cat(line)
cat(" ")
}
if(maxLines <= line) {
cat("End of file reached without condition getting TRUE")
}
else{
cat("Condition evaluated to TRUE on line :")
cat(line)
cat("\n")
cat(sourceList[line])
}
}
我仍然在等待其他/更好的答案。。。此外，这是我在R中创建的第四个函数，因此我想可能需要对其进行改进…好的，我想我最终构建了类似的功能： 这是一个函数，用于在满足给定条件之前为每行源文件行：
watchIt <- function(file,watchexpression,startwatchline){
line <- 1
sourceList <- scan(file = "source_test.R", what="character", sep="\n", blank.lines.skip = FALSE)
maxLines <- length(sourceList)
while(startwatchline > line && maxLines >= line){
cat("l")
eval(parse(text=sourceList[line]))
line <- line+1
cat(line)
cat(" ")
}
while(eval(parse(text=watchexpression)) == FALSE && maxLines >= line){
cat(" L")
eval(parse(text=sourceList[line]))
line <- line+1
cat(line)
cat(" ")
}
if(maxLines <= line) {
cat("End of file reached without condition getting TRUE")
}
else{
cat("Condition evaluated to TRUE on line :")
cat(line)
cat("\n")
cat(sourceList[line])
}
}
我仍然在等待其他/更好的答案。。。此外，这是我在R中创建的第四个函数，因此我想可能需要对其进行改进…基本上您正在调试。尝试在例程中包含一些将在屏幕上输出进度/状态的
printexprbrowser（）printbrowser（）expr