如何在不立即终止程序的情况下从命令行运行Rscript

Question

我有一个基本的测试程序，其中包含一些最少的gui元素：

library(tcltk)

tt <- tktoplevel() 
input.widget <- tkentry(tt)
output.widget <- tkentry(tt)
tkinsert(input.widget, "end", "4")
tkinsert(output.widget, "end", "24")

gui.fat <- function() {
  n <- as.integer(tclvalue(tkget(input.widget)))
  fat.n <- prod(1:n)
  tkdelete(output.widget, 0, "end")
  tkinsert(output.widget, "end", fat.n)
}

button.widget <- tkbutton(tt, text="fat() =", command = gui.fat) 
tkpack(input.widget, button.widget, output.widget) # geometry manager 

从控制台中的source（）运行时，程序将按预期方式运行并持续运行，但是从命令行运行时

Rscript "filepath\test.R"

该应用程序运行，并在执行最后一条命令后立即关闭。 有没有一种方法可以使程序持久保存直到被用户关闭？