R/doc_tbl.R

In LucyMcGowan/GMD: Google RMarkdown

#' Get the a table of Google Drive documents
#'
#' @param token your google authentication token
#'
#' @return tibble containing id, title, and date created of documents in google drive
#'
#' @examples
#' \dontrun{
#' gd_tbl <- doc_tbl(token = token)
#' }
#' @export
doc_tbl <- function(token = token){
  req <- .get_docs(url = drive_url,
                   token)
  req_tbl <- tibble::tibble(
    id             = purrr::map_chr(req$items, "id") ,
    title          = purrr::map_chr(req$items, "title"),
    dateCreated    = as.Date(purrr::map_chr(req$items, "createdDate"))
  )
  req_tbl <- req_tbl[order(req_tbl$dateCreated, decreasing = TRUE),]
  return(req_tbl)
}