You can use googledrive to manage permissions on your Drive files, i.e. grant different people or groups of people various levels of access (read, comment, edit, etc.).
Let’s upload a file and view its permissions.
library(googledrive) file <- drive_example("chicken.txt") %>% drive_upload(name = "chicken-perm-article.txt") %>% drive_reveal("permissions") #> Local file: #> * /home/travis/R/Library/googledrive/extdata/chicken.txt #> uploaded into Drive file: #> * chicken-perm-article.txt: 18D24-qvslcjputkNMu5M901OmFEm0eBf #> with MIME type: #> * text/plain file #> # A tibble: 1 x 5 #> name shared id drive_resource permissions_resou… #> * <chr> <lgl> <chr> <list> <list> #> 1 chicken-perm-a… FALSE 18D24-qvslcjputkNMu… <named list [3… <named list >
shared = FALSE indicates that this file is not yet shared with anyone and, for those so inclined, detailed information on permissions can be found in the
permissions_resource list-column. Note that the
drive_resource, which is always present in a dribble, typically also contains information on permissions. So if you just want to know about permissions, as opposed to modifying them, you can probably consult
Let’s give a specific person permission to edit this file and a customized message, using the
Let’s say we also want “anyone with a link” to be able to read the file.
file <- file %>% drive_share(role = "reader", type = "anyone") #> Permissions updated #> * role = reader #> * type = anyone #> For files: #> * chicken-perm-article.txt: 18D24-qvslcjputkNMu5M901OmFEm0eBf file #> # A tibble: 1 x 5 #> name shared id drive_resource permissions_resou… #> * <chr> <lgl> <chr> <list> <list> #> 1 chicken-perm-a… TRUE 18D24-qvslcjputkNMu… <named list [3… <named list >
We see that the file is now
shared = TRUE.
Now that we’ve made a few updates to our permissions, the
permissions_resource list-column has become more interesting. Here’s how to pull important information out of this and put into a tibble with one row per permission. (Permission handling will become more formalized in future versions of googledrive. See the issue). We use other packages in the tidyverse now for this data wrangling.
library(tidyverse) perm <- pluck(file, "permissions_resource", 1, "permissions") permissions <- tibble( id = map_chr(perm, "id", .default = NA_character_), name = map_chr(perm, "displayName", .default = NA_character_), type = map_chr(perm, "type", .default = NA_character_), role = map_chr(perm, "role", .default = NA_character_), email = map_chr(perm, "emailAddress", .default = NA_character_) ) permissions
We’ve suppressed execution of the above chunk but here’s some static, indicative output: