Specify paths with shared_folder_id

[mkirzon]

Specify paths with shared_folder_id

[mkirzon]

Here's a stab at using the appropriate dropbox api

#' Get shared folder info
#'
#' Returns folder metadata by its shared folder ID
#'
#' @inheritParams drop_download_folder
#' @param shared_folder_id Dropbox shared folder id
#'
#' @return possibly-nested list of all available metadata for specified shared_folder_id
#' @author Mark Kirzon, \email{[email protected]}

drop_get_folder_metadata <- function(shared_folder_id, dtoken = rdrop2::drop_auth())
{
  url <- "https://api.dropboxapi.com/2/sharing/get_folder_metadata"

  req <- httr::POST(
    url    = url,
    config = httr::config(token = dtoken),
    body   = list(shared_folder_id = shared_folder_id),
    encode = "json")
  httr::stop_for_status(req)
  httr::content(req)
}