我试图在shinyApp中运行GET请求,但我不想等待响应,因为它需要很长时间才能处理,我不需要在shinyApp中真正需要响应,尽管状态代码会很好,但这不是强制性的。
或者是否有一个发送异步请求的函数?就像将整个GET包含在未来/承诺中一样?
目前我在shineApp中有这个observeEvent:
observeEvent(input$import, {
httr::GET(url = "https://someurl/that/takes/a/long/time")
})
来自curl_fetch_multi
包的curl
是否适合这项任务?
这是一种异步运行GET
并以会话内非阻塞方式运行的方法(观察者不返回任何内容):
library(shiny)
library(future)
library(promises)
library(future.callr)
library(httr)
plan(callr)
queryGoogle <- function(queryString) {
myResponse <- httr::GET("http://google.com/", path = "search", query = list(q = queryString))
return(myResponse)
}
ui <- fluidPage(
br(),
textOutput("time_output"),
br(),
textInput(inputId="query_input", label = NULL, value = "", placeholder = "Search google..."),
actionButton("import", "Query"),
hr(),
textOutput("query_output")
)
server <- function(input, output, session) {
futureData <- reactiveValues(response = NULL)
observeEvent(input$import, {
myFuture <- future({
queryGoogle(isolate(input$query_input))
})
then(
myFuture,
onFulfilled = function(value) {
futureData$response <- value
},
onRejected = NULL
)
return(NULL)
})
output$query_output <- renderPrint({
req(futureData$response)
})
time <- reactive({
invalidateLater(500, session)
Sys.time()
})
output$time_output <- renderText({ paste("Something running in parallel:", time()) })
}
shinyApp(ui, server)
这是我的答案here的略微修改。