Skip to content
Permalink
master
Switch branches/tags
Go to file
 
 
Cannot retrieve contributors at this time
36 lines (29 sloc) 1.08 KB
# environment to hold data about the Drive API
.drive <- new.env(parent = emptyenv())
.drive$translate_mime_types <-
system.file("extdata", "translate_mime_types.csv", package = "googledrive") %>%
read.csv(stringsAsFactors = FALSE) %>%
tibble::as_tibble()
.drive$mime_tbl <-
system.file("extdata", "mime_tbl.csv", package = "googledrive") %>%
read.csv(stringsAsFactors = FALSE) %>%
tibble::as_tibble()
.drive$files_fields <-
system.file("extdata", "files_fields.csv", package = "googledrive") %>%
read.csv(stringsAsFactors = FALSE) %>%
tibble::as_tibble()
.onLoad <- function(libname, pkgname) {
.auth <<- gargle::init_AuthState(
package = "googledrive",
auth_active = TRUE
)
if (requireNamespace("dplyr", quietly = TRUE)) {
register_s3_method("dplyr", "arrange", "dribble")
register_s3_method("dplyr", "filter", "dribble")
register_s3_method("dplyr", "mutate", "dribble")
register_s3_method("dplyr", "rename", "dribble")
register_s3_method("dplyr", "select", "dribble")
register_s3_method("dplyr", "slice", "dribble")
}
invisible()
}