如何从 tcltk 脚本小部件成功中断 R？

Question

我正在尝试使用 tcltk 包为 R 创建一个脚本小部件。但我不知道如何创建一个停止按钮来中断来自小部件的脚本。基本上，我想要一个按钮、一个菜单选项和/或一个键绑定来中断当前脚本的执行，但我不知道如何让它工作。

一种（非理想）策略是仅使用 RGui STOP 按钮（或控制台上的 <ESC> 或 <Ctrl-c>），但这似乎会导致 tk 小部件永久挂起。

这是一个基于 tcl/tk 示例 (http://bioinf.wehi.edu.au/~wettenhall/RTclTkExamples/evalRcode.html) 的小部件的最小示例：

require(tcltk)

tkscript <- function() {
    tt <- tktoplevel()
    txt <- tktext(tt, height=10)
    tkpack(txt)
    run <- function() {
        code <- tclvalue(tkget(txt,"0.0","end"))
        e <- try(parse(text=code))
        if (inherits(e, "try-error")) {
            tkmessageBox(message="Syntax error", icon="error")
            return()
        }
        print(eval(e))
    }
    tkbind(txt,"<Control-r>",run)
}

tkscript()

在脚本小部件中，如果您尝试执行Sys.sleep(20) 然后从控制台中断，小部件会挂起。如果要运行类似while(TRUE) 2+2 的无限循环，也会发生同样的事情。

我认为我遇到的可能与此处报告的错误相似：https://bugs.r-project.org/bugzilla3/show_bug.cgi?id=14730

另外，我应该提到我在 Windows (x64) 上的 R 3.0.0 上运行它，所以问题可能是特定于平台的。

关于如何在不导致小部件挂起的情况下中断正在运行的脚本有什么想法吗？

Answer 1

这取决于脚本在做什么；等待用户做某事的脚本很容易被中断（因为你可以让它监听你的中断消息），但是一个正在执行密集循环的脚本相当棘手。可能的解决方案取决于里面的 Tcl 版本。

解释器取消 - 需要 8.6

如果您使用的是 Tcl 8.6，您可以使用解释器取消来停止脚本。您所要做的就是安排：

interp cancel -unwind

运行，脚本会将控制权交还给您。这样做的合理方法是使用额外的 Tcl 包 TclX（或 Expect）安装一个信号处理程序，该处理程序将在收到信号时运行命令：

package require Tcl 8.6
package require TclX

# Our signal handler
proc doInterrupt {} {
    # Print a message so you can see what's happening
    puts "It goes boom!"
    # Unwind the stack back to the R code
    interp cancel -unwind
}

# Install it...
signal trap sigint doInterrupt

# Now evaluate the code which might try to run forever

在早期版本中添加信号处理是可能的，但不是那么容易，因为您不能保证事情会那么容易地返回给您；堆栈展开不存在。

执行时间限制 - 需要 8.5（或 8.6）

您可以尝试的另一件事是在从解释器上设置执行时间限制并在该从解释器中运行用户脚本。然后，时间限制机制将保证每隔一段时间就会给你一个陷阱，让你有机会检查中断和进行堆栈展开的方法。这是一个相当更复杂的方法。

proc nextSecond {} {
    clock add [clock seconds] 1 second
}
interp create child
proc checkInterrupt {} {
    if {["decide if the R code wanted an interrupt"]} {
        # Do nothing
        return
    }
    # Reset the time limit to another second ahead
    interp limit child time -seconds [nextSecond]
}

interp limit child time -seconds [nextSecond] -command checkInterrupt
interp eval child "the user script"

认为这种机制很像操作系统的工作方式，是的，它可以停止一个紧密的循环。

使用子进程——任何版本的 Tcl

最可移植的机制是在子进程中运行脚本（使用tclsh 程序；确切的名称因版本、平台和发行版而异，但都是变化的），然后在该子进程运行时将其终止不再需要pskill。这样做的缺点是您不能（轻松）将任何状态从一次执行转移到另一次执行；子进程彼此非常隔离。上面描述的其他方法可以使状态能够从另一个运行中访问：它们执行真正的中断，而这会破坏。

另外，我不知道如何启动子进程，以便您可以在 R 仍在运行时与它进行通信； system 和 system2 似乎并没有提供足够的控制权，并且使用分叉来破解某些东西是不可移植的。这里需要 R 专家。或者，使用 Tcl 脚本（在 R 进程中运行）来完成：

set executable "tclsh";    # Adjust this line
set scriptfile "file/where/you/put/the_user/script.tcl"

# Open a bi-directional pipe to talk to the subprocess
set pipeline [open |[list $executable $scriptfile] "r+"]

# Get the subprocess's PID
set thePID [pid $pipeline]

这实际上可以合理地移植到 Windows（如果不是完全如此），但带有分叉的中间状态不是。

Answer 2

我似乎找到了一种解决方案，通过将eval 嵌入处理中断条件的tryCatch 中来防止tk 小部件挂起。不幸的是，它需要来自控制台而不是小部件的中断，但它确实有效。 tryCatch 的文档记录很差，所以我把它放在这里，以防其他人将来有类似的需求。

require(tcltk)

tkscript <- function() {
    tt <- tktoplevel()
    txt <- tktext(tt, height=10)
    tkpack(txt)
    run <- function() {
        code <- tclvalue(tkget(txt,"0.0","end"))
        e <- try(parse(text=code))
        if (inherits(e, "try-error")) {
            tkmessageBox(message="Parse error", icon="error")
            tkfocus(txt)
            return()
        }
        e <- tryCatch(eval(e),
            error = function(errmsg)
                tkmessageBox(message=as.character(errmsg), icon="error"),
            interrupt = function(errmsg)
                tkmessageBox(message=as.character(errmsg), icon="error")
        )
        print(eval(e))
    }
    tkbind(txt,"<Control-r>",run)
}

tkscript()

我偶然发现的另一个策略是使用tools::pskill（以pskill(Sys.getpid(), SIGINT) 作为tk 菜单选项的形式）来中断进程，但是——至少在Windows 上——这会终止整个R 进程（包括tk 小部件） .所以，这不是一个很好的解决方案，但至少似乎作为绝对的后备退出一切。