我有一个简单的 Shiny 应用，其中数据集在调用中创建reactive()，然后进行绘图。由于数据创建可能需要一段时间，我希望将其调用为异步，以便会话可以用于其他用途。为此，我想使用shiny::ExtendedTask()with mirai。
官方文档中有task$invoke(...)由按钮触发的示例（例如在 内部shiny::observeEvent()），但没有示例说明如果我的功能在 内部触发，我该如何构造它reactive()。
请注意，我的实际用例在特定页面上的几个图中重复使用了结果数据。
同步应用程序 MWE
以下是阻止应用程序的 MWE
library(shiny)
library(bslib)
create_data <- function(n) {
Sys.sleep(2)
data.frame(x = seq(n), y = rnorm(n))
}
ui <- page_fillable(
card(
card_header(span("To show reactive state, here is the current time ",
textOutput("current_time", inline = TRUE))),
plotOutput("myplot")
)
)
server <- function(input, output, session) {
# note this reactive here should be put into an ExtendedTask
data <- reactive({
create_data(100)
})
output$myplot <- renderPlot({
d <- data()
plot(d$x, d$y)
})
# to show if the session is free: show current time
output$current_time <- renderText({
invalidateLater(1000, session)
format(Sys.time(), "%H:%M:%S")
})
}
shinyApp(ui, server)
create_data()请注意，由于该功能阻止了会话，因此时间不会立即显示。
尝试异步应用程序
reactive()为了显示事件触发的时间，我将内容移到了第二个导航栏页面。因此，我希望任务在页面显示时（例如，而不是observe()行为）需要数据时触发。
我的失败尝试如下（请注意我是如何使用触发task$invoke的，observe()这是错误，但我不知道如何使用reactive()或以其他方式触发它。
library(shiny)
library(bslib)
library(mirai)
create_data <- function(n) {
Sys.sleep(2)
data.frame(x = seq(n), y = rnorm(n))
}
# small helper function for logging
flog <- function(m) cat(sprintf("INFO [%s] | %s\n", format(Sys.time(), "%Y-%m-%d %H:%M:%OS3"), m))
ui <- page_navbar(
nav_panel("Empty Default"),
nav_panel(
"Same as Before",
card_header(span("To show reactive state, here is the current time ",
textOutput("current_time", inline = TRUE))),
plotOutput("myplot")
)
)
server <- function(input, output, session) {
# create the task
task <- ExtendedTask$new(function(...) mirai(fun(n = n), fun = create_data, ...))
# this is the error here: the observe is not triggered by the rendered plot but by observe => fires immediately
observe({
flog("Task Invoke")
task$invoke(n = 100)
flog("Task Invoke Done")
})
output$myplot <- renderPlot({
flog("Task Result")
data <- task$result()
flog("Task Result Done")
plot(data$x, data$y)
})
# to show if the session is free: show current time
output$current_time <- renderText({
invalidateLater(1000, session)
format(Sys.time(), "%H:%M:%S")
})
}
shinyApp(ui, server)
