为什么 future::future() 不能与 shiny 中的 dbAppendTable 一起使用？

Question

您可以使用 future() 来获得它的副作用，例如写一个文件：

library(promises)
library(future)
plan(multiprocess)
future({write.csv(mtcars,"mtcars.csv")})

但你不能使用数据库调用：

library(RSQLite)
library(promises)
library(future)
plan(multiprocess)
con <- dbConnect(RSQLite::SQLite(), ":memory:")
future({
dbCreateTable(con, "iris", iris)
})
dbReadTable(con, "iris") # gives error

（无论是持久写入还是在 memory 中都不会创建该表。）

Answer 1

DBI package 及其所有实现（如RSQLite ）确实使用不可导出的对象（基本上是 memory 指针），请参阅：

https://cran.r-project.org/web/packages/future/vignettes/future-4-non-exportable-objects.html

当您像这样配置futures时，您会看到一条错误消息：

options(future.globals.onReference = "error")
# ... your code goes here

# Error in FALSE : 
# Detected a non-exportable reference (‘externalptr’) in one of the globals (‘con’ of class ‘SQLiteConnection’) used in the future expression
# Timing stopped at: 0.028 0 0.028

Answer 2

我可能错了，但我怀疑这两个con不一样，所以我猜未来就像宿醉中的曼谷：未来内部发生的事情留在未来内部。 可以说，您的con是按值（而不是按引用）评估的，因此该表未写入原始con 。 考虑以下代码：

library(future)
x <- 4
a <- future({
    x <- x + 1 # I am not seen outside
})
x # is still 4 and has not changed
#> [1] 4
value(a) # is 5
#> [1] 5

但是，如果您在future中使用substitute = FALSE ， x也将是5 ，我很高兴知道为什么:-)

Answer 3

当使用带有数据库连接的期货时，您必须在未来内创建（并且可能关闭）连接：

library(RSQLite)
library(promises)
library(future)
plan(multiprocess)

future({
con <- dbConnect(RSQLite::SQLite(), ":memory:")
on.exit(DBI::dbDisconnect(con))
dbCreateTable(con, "iris", iris)
})
# reconnect and read
con <- dbConnect(RSQLite::SQLite(), ":memory:")
dbReadTable(con, "iris") 
#data frame with 0 columns and 0 rows

github上有一个关于此的未解决问题