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
|
# environment to hold data about the Drive API
.drive <- new.env(parent = emptyenv())
.drive$translate_mime_types <-
system.file(
"extdata", "data", "translate_mime_types.csv",
package = "googledrive",
mustWork = TRUE
) %>%
utils::read.csv(stringsAsFactors = FALSE) %>%
as_tibble()
.drive$mime_tbl <-
system.file(
"extdata", "data", "mime_tbl.csv",
package = "googledrive",
mustWork = TRUE
) %>%
utils::read.csv(stringsAsFactors = FALSE) %>%
as_tibble()
.drive$files_fields <-
system.file(
"extdata", "data", "files_fields.csv",
package = "googledrive",
mustWork = TRUE
) %>%
utils::read.csv(stringsAsFactors = FALSE) %>%
as_tibble()
# environment to hold other data that is convenient to cache
.googledrive <- new.env(parent = emptyenv())
|
