set_global ("downlink_cloud", 5) в пакете simmer в R не работает

Question

Так что я все еще новичок в запуске симуляции в R с использованием пакета simmer. Так вот мой код.

library(simmer)
library(simmer.plot)
env <- simmer('offloading')%>%
  add_resource("uplink_fog", capacity) %>%
  add_resource("uplink_cloud", capacity) %>%

    set_global("uplink_cloud", 5) %>%
  add_resource("fog", capacity) %>%
    # set_global("downlink_fog", 10) %>%
    # set_global("downlink_cloud", 5) %>%
  add_resource("cloud", capacity) %>%
  add_resource("downlink", capacity)

Когда я выполняю этот код, он показывает Ошибка в UseMethod ("set_global"): нет применимого метода для set_global, примененного к объекту класса "simmer". Интересно, почему. Когда я комментирую код set_global, он работает хорошо. Как я могу исправить эту ошибку?