Используйте кеширование Memoise в R future

Question

Мне нужно кэшировать некоторые дорогие функции, которые выполняются асинхронно внутри 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(.)

Есть какое-нибудь решение?