tests/testthat/_snaps/drive_reveal.md

drive_reveal() works

Code
  print(out <- drive_reveal(dat, "starred")[c("name", "starred")])
Output
  # A tibble: 3 x 2
    name                                   starred
    <chr>                                  <lgl>  
  1 i-am-a-google-doc-TEST-drive_reveal    FALSE  
  2 i-have-a-description-TEST-drive_reveal FALSE  
  3 i-am-starred-TEST-drive_reveal         TRUE
Code
  print(out <- drive_reveal(dat, "description")[c("name", "description")])
Output
  # A tibble: 3 x 2
    name                                   description 
    <chr>                                  <chr>       
  1 i-am-a-google-doc-TEST-drive_reveal    <NA>        
  2 i-have-a-description-TEST-drive_reveal description!
  3 i-am-starred-TEST-drive_reveal         <NA>
Code
  print(out <- drive_reveal(dat, "mimeType")[c("name", "mime_type")])
Output
  # A tibble: 3 x 2
    name                                   mime_type                           
    <chr>                                  <chr>                               
  1 i-am-a-google-doc-TEST-drive_reveal    application/vnd.google-apps.document
  2 i-have-a-description-TEST-drive_reveal text/plain                          
  3 i-am-starred-TEST-drive_reveal         text/plain


tidyverse/googledrive documentation built on Jan. 14, 2024, 3:44 a.m.