1

我正在试验承诺,据我所知,正如本期所指出的,为同一用户运行的异步进程应该阻止所有其他会话内活动的执行。然而,这似乎不是一个普遍的原则。

在下面的示例应用程序中,我有一个人为绘制的绘图操作和一些其他元素,以查看它们如何交互。其中一个元素是downloadButton/downloadHandler对。在异步操作运行时,仍然可以按downloadButton并获得输出,这对我来说是出乎意料的。我的问题是:

  • 我可以在异步进程运行时停止 downloadHandler 处于活动状态吗?
  • 为什么downloadHandler特别?


library(future)
library(promises)
library(shiny)
plan(multisession)

server = function(input, output) { # slow async plot output$slow_plot <- renderPlot({ input$slow_plot_button future({ print('I am slow') Sys.sleep(10) runif(20) }) %...>% plot(.) }) # fast normal plot output$fast_plot = renderPlot({ print('I am fast') input$fast_plot_button plot(runif(20)) }) # something that has no UI output observeEvent(input$non_ui_update,{ print('Button press yay!') }) # trigger happy downloadHandler output$download = downloadHandler('file', content = function(file){ cat('is a file',file = file) })}

ui = fluidPage( titlePanel("Async test"), sidebarLayout( sidebarPanel( actionButton('slow_plot_button','slow plot button'), actionButton('fast_plot_button','fast plot button'), actionButton('non_ui_update','non ui update'), downloadButton('download','download') ), mainPanel( plotOutput("slow_plot"), plotOutput("fast_plot") ) ) )

shinyApp(ui,server)

编辑:删除了有关 downloadButton 下载整个页面的附加信息,因为它不是问题的组成部分

4

0 回答 0