R/03_onLoad_actions.R

Defines functions .onLoad

.onLoad <- function(libname, pkgname) {
  fd::initialize(
    package = "brain",
    load_package = FALSE,
    silent = TRUE
  )

  tryCatch({
    actions[["weather_download"]] <- fd::action$new(
      key = "brain_weather_download",
      value = lubridate::today(),
      dev_always_performs = TRUE,
      production_days = c(1:7),
      first_date_of_production = "2019-09-21"
    )
  },
  error = function(e) {
    fd::msg("No database available")
  }
  )
}
folkehelseinstituttet/dashboards_brain documentation built on March 19, 2020, 4:46 a.m.