Мне нужно кэшировать некоторые дорогие функции, которые выполняются асинхронно внутри futures
.
Но, похоже, memoise
не работает с future
:
library(memoise)
library(future)
library(promises)
f <- function(n) {
Sys.sleep(n)
return("Something")
}
m_f <- memoise(f)
# First time 3 seconds -> OK
future({
system.time(m_f(3))
}) %...>% print(.)
# Second time 3 seconds -> KO
future({
system.time(m_f(3))
}) %...>% print(.)
IsЕсть ли решение?