Question

这是我在“奇怪”问题循环中的下一个问题。

我在R控制台和RStudio中的代码执行中发现了相同的区别，并且无法理解它的原因。它也与RStudio和R.NET中的“track”包的错误工作有关，正如我之前在Incorrect work of track package in R.NET中所写的那样

那么，让我们看一下https://search.r-project.org/library/base/html/taskCallback.html

的例子

（我在RStudio中对和的正确数据输出稍微纠正了一下）

times <- function(total = 3, str = "Task a") {
   ctr <- 0

   function(expr, value, ok, visible) {
    ctr <<- ctr + 1
    cat(str, ctr, "\n")
    if(ctr == total) {
      cat("handler removing itself\n")
    }
    return(ctr < total)
   }
 }

 # add the callback that will work for
 # 4 top-level tasks and then remove itself.
 n <- addTaskCallback(times(4))

 # now remove it, assuming it is still first in the list.
 removeTaskCallback(n)

## Not run: 
# There is no point in running this
# as
 addTaskCallback(times(4))

 print(sum(1:10))
 print(sum(1:10))
 print(sum(1:10))
 print(sum(1:10))
 print(sum(1:10))

## End(Not run)

R控制台中的输出：

> 
>  # add the callback that will work for
>  # 4 top-level tasks and then remove itself.
>  n <- addTaskCallback(times(4))
Task a 1 
> 
>  # now remove it, assuming it is still first in the list.
>  removeTaskCallback(n)
[1] TRUE
> 
> ## Not run: 
> # There is no point in running this
> # as
>  addTaskCallback(times(4))
1 
1 
Task a 1 
> 
>  print(sum(1:10))
[1] 55
Task a 2 
>  print(sum(1:10))
[1] 55
Task a 3 
>  print(sum(1:10)) 
[1] 55
Task a 4 
handler removing itself
>  print(sum(1:10))
[1] 55
>  print(sum(1:10))
[1] 55
> 
> ## End(Not run)
>

好的，让我们在RStudio中运行它。输出：

> source('~/callbackTst.R')
[1] 55
[1] 55
[1] 55
[1] 55
[1] 55
Task a 1 
>

第二次运行给我们这个：

> source('~/callbackTst.R')
[1] 55
[1] 55
[1] 55
[1] 55
[1] 55
Task a 2 
Task a 1 
>

第三

> source('~/callbackTst.R')
[1] 55
[1] 55
[1] 55
[1] 55
[1] 55
Task a 3 
Task a 2 
Task a 1 
>

等等。

RStudio和R控制台之间有一个奇怪的区别，我不知道为什么。谁能帮助我？是错误还是正常，我弯曲了手？

谢谢。

P.S。这篇文章与“track”包的正确工作有关，因为“track.start”方法包含这部分代码：

assign(".trackingSummaryChanged", FALSE, envir = trackingEnv)
assign(".trackingPid", Sys.getpid(), envir = trackingEnv)
if (!is.element("track.auto.monitor", getTaskCallbackNames())) 
    addTaskCallback(track.auto.monitor, name = "track.auto.monitor")
return(invisible(NULL))

我认为，这在RStudio和R.NET中无法正常工作

P.P.S。我使用R 3.2.2 x64，RStudio 0.99.489和Windows 10 Pro x64。在RRO上，这个问题在R.NET和RStudio

下也存在

Answer 1

addTaskCallback()将添加一个在R执行返回顶级时执行的回调。当您逐行执行代码时，执行的每个语句都会将控制权返回到顶层，并且将执行回调。

在source()内执行时，在调用source()之前不会返回控制权，因此回调只运行一次。

奇怪的addTaskCallback在RStudio中工作

1 个答案: