Question

runApp的帮助页面说：

运行一个闪亮的应用程序。此功能通常不会返回; 中断R以停止应用程序（通常按Ctrl + C或 ESC）。

＆＃34;通常＆＃34;意思是＆＃34;永远＆＃34;？有没有办法添加＆＃34;退出＆＃34;按钮并将值返回到调用runApp的R会话？即使它是一个黑客，这将是方便的功能。我尝试了一些搜索，但没找到任何东西。我还查看了runApp的来源，最后一行是return(.globals$retval)，所以看起来应该有办法。

我可以直接设置.globals$retval然后调用某种中断吗？ shiny包中是否有一个函数可以执行此操作？

Answer 1

有一个stopApp函数可以停止正在运行的应用并返回一个可选值：

myValue <- runApp(list(
  ui = bootstrapPage(
    numericInput('n', 'Number of obs', 100),
    actionButton("myBtn", "Press ME!"),
    plotOutput('plot')
  ),
  server = function(input, output, session) {
    output$plot <- renderPlot({ hist(runif(input$n)) });
    observe({
      if(input$myBtn > 0){
        stopApp(7)
    }
    })
  }
))

停止时：

> myValue
[1] 7

如何退出Shiny应用程序并返回值

1 个答案: