-
Notifications
You must be signed in to change notification settings - Fork 84
/
onload.R
47 lines (38 loc) · 1.38 KB
/
onload.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
cpc_cache <- NULL
arc2_cache <- NULL
lcd_cache <- NULL
bsw_cache <- NULL
isd_cache <- NULL
stormevents_cache <- NULL
ersst_cache <- NULL
torn_cache <- NULL
ghcnd_cache <- NULL
.onLoad <- function(libname, pkgname){
x <- hoardr::hoard()
x$cache_path_set(full_path = tools::R_user_dir("rnoaa/noaa_cpc", which = "cache"))
cpc_cache <<- x
y <- hoardr::hoard()
y$cache_path_set(full_path = tools::R_user_dir("rnoaa/noaa_arc2", which = "cache"))
arc2_cache <<- y
w <- hoardr::hoard()
w$cache_path_set(full_path = tools::R_user_dir("rnoaa/noaa_lcd", which = "cache"))
lcd_cache <<- w
m <- hoardr::hoard()
m$cache_path_set(full_path = tools::R_user_dir("rnoaa/noaa_bsw", which = "cache"))
bsw_cache <<- m
g <- hoardr::hoard()
g$cache_path_set(full_path = tools::R_user_dir("rnoaa/noaa_isd", which = "cache"))
isd_cache <<- g
ss <- hoardr::hoard()
ss$cache_path_set(full_path = tools::R_user_dir("rnoaa/noaa_stormevents", which = "cache"))
stormevents_cache <<- ss
p <- hoardr::hoard()
p$cache_path_set(full_path = tools::R_user_dir("rnoaa/noaa_ersst", which = "cache"))
ersst_cache <<- p
torn <- hoardr::hoard()
torn$cache_path_set(full_path = tools::R_user_dir("rnoaa/noaa_tornadoes", which = "cache"))
torn_cache <<- torn
hh <- hoardr::hoard()
hh$cache_path_set(full_path = tools::R_user_dir("rnoaa/noaa_ghcnd", which = "cache"))
ghcnd_cache <<- hh
}