Permalink
Browse files

Comment a hyperlink in code

  • Loading branch information...
jennybc committed Jul 22, 2018
1 parent f887dae commit e2e0047ab936961bbeaa6fbe8bb6de70dd81d3d1
Showing with 2 additions and 2 deletions.
  1. +2 −2 R/05_googledrive_is-parental.R
@@ -9,11 +9,11 @@ drive_cp <- function(file, ...) {
...
}

https://github.com/tidyverse/googledrive/blob/b6e97999d0781c31c69ef6fa93d1091a04b44d20/R/dribble.R#L253
## https://github.com/tidyverse/googledrive/blob/b6e97999d0781c31c69ef6fa93d1091a04b44d20/R/dribble.R#L253

is_parental <- function(d) {
stopifnot(inherits(d, "dribble"))
kind <- purrr::map_chr(d$drive_resource, "kind")
mime_type <- purrr::map_chr(d$drive_resource, "mimeType", .default = NA)
kind == "drive#teamDrive" | mime_type == "application/vnd.google-apps.folder"
}
}

0 comments on commit e2e0047

Please sign in to comment.