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

Question

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

一个(非理想的)策略是只使用 RGui 停止按钮(或控制台上的 <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 似乎并没有提供足够的控制，而且用 fork 破解某些东西是不可移植的。这里需要 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(如果不是完全如此的话)，但带有 fork 的中间状态则不然。