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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
#' Get shared drives by name or id
#'
#' @description
#' Retrieve metadata for shared drives specified by name or id. Note that Google
#' Drive does NOT behave like your local file system:
#' * You can get zero, one, or more shared drives back for each name! Shared
#' drive names need not be unique.
#' @template shared-drive-description
#' @param name Character vector of names. A character vector marked with
#' [as_id()] is treated as if it was provided via the `id` argument.
#' @param id Character vector of shared drive ids or URLs (it is first processed
#' with [as_id()]). If both `name` and `id` are non-`NULL`, `id` is silently
#' ignored.
#'
#' @eval return_dribble("shared drive")
#' @export
#' @examples
#' \dontrun{
#' shared_drive_get("my-awesome-shared-drive")
#' shared_drive_get(c("apple", "orange", "banana"))
#' shared_drive_get(as_id("KCmiHLXUk9PVA-0AJNG"))
#' shared_drive_get(as_id("https://drive.google.com/drive/u/0/folders/KCmiHLXUk9PVA-0AJNG"))
#' shared_drive_get(id = "KCmiHLXUk9PVA-0AJNG")
#' shared_drive_get(id = "https://drive.google.com/drive/u/0/folders/KCmiHLXUk9PVA-0AJNG")
#' }
shared_drive_get <- function(name = NULL, id = NULL) {
if (length(name) + length(id) == 0) {
return(dribble())
}
if (!is.null(name) && is_drive_id(name)) {
id <- name
name <- NULL
}
if (!is.null(name)) {
stopifnot(all(map_lgl(name, is_string)))
return(shared_drive_from_name(name))
}
stopifnot(is.character(id))
# TODO: use a batch request
as_dribble(map(as_id(id), get_one_shared_drive_id))
}
get_one_shared_drive_id <- function(id) {
if (is.na(id)) {
drive_abort("
Can't {.fun shared_drive_get} a shared drive when {.arg id} is {.code NA}.")
}
request <- request_generate(
endpoint = "drive.drives.get",
params = list(
driveId = id,
fields = "*"
)
)
response <- request_make(request)
gargle::response_process(response)
}
shared_drive_from_name <- function(name = NULL) {
if (length(name) == 0) {
return(dribble())
}
shared_drives <- shared_drive_find()
if (no_file(shared_drives)) {
return(dribble())
}
shared_drives <- shared_drives[shared_drives$name %in% name, ]
## TO DO: message if a name matches 0 or multiple shared drives?
shared_drives[order(match(shared_drives$name, name)), ]
}
|
