с конкретным запросом с httr

Question

Как мне сделать этот запрос с httr?

'curl -X POST https://api.dropboxapi.com/2/files/list_folder \ 
    --header "Authorization: Bearer 21318318usdhsdha9283718 " \ 
    --header "Content-Type: application/json" \ 
    --data "{\"path\": \"/today/\",\"recursive\": false,\"include_media_info\": false,\"include_deleted\": false}"' 

Я попытался с помощью curlconverter но не работал хорошо для этого. Я не уверен, как бы я хотел реализовать параметр -data и что следует.

Answer 1

Это работает для меня, это сработает для вас?

httr::POST(
    "https://api.dropboxapi.com/2/files/list_folder", 
    add_headers(Authorization = "Bearer <token>"), 
    content_type_json(), 
    body = "{\"path\": \"/folder\",\"recursive\": false,\"include_media_info\": false,\"include_deleted\": false}", 
    encode = "json" 
) 

Если вы хотите, чтобы обобщить немного для многих папок:

library("httr") 
foobar <- function(x) { 
    content(POST(
    "https://api.dropboxapi.com/2/files/list_folder", 
    add_headers(Authorization = "Bearer <token>"), 
    content_type_json(), 
    body = list(path = paste0("/", x), recursive = FALSE, 
       include_media_info = FALSE, include_deleted = FALSE), 
    encode = "json" 
)) 
} 

lapply(c('a', 'b', "c"), foobar)