Как создать сеанс чередования с httr - PullRequest
Новая
       21

Как создать сеанс чередования с httr

0 голосов
/ 09 июля 2019

Я пытаюсь создать сеанс чередования в блестящем режиме, чтобы инициировать процесс оплаты. ( Документы в полоску )

У меня есть этот запрос: 

curl https://api.stripe.com/v1/checkout/sessions \
  -u sk_test_XXX: \
  -d success_url="https://example.com/success" \
  -d cancel_url="https://example.com/cancel" \
  -d payment_method_types[]=card \
  -d line_items[][name]=T-shirt

Попытка подобной команды (включая подписку на line_items) в R с httr всегда выдает ошибку.
До сих пор я пробовал это: 

httr::POST(
  url = "https://api.stripe.com/v1/checkout/sessions",
  config = httr::add_headers(
    Authorization = paste("Bearer", Sys.getenv("stripe_key"))
  ),
  body = list(
    success_url = "https://example.com/success",
    cancel_url = "https://example.com/cancel",
    payment_method_types = "card",
    subscription_data = list(
      items = list(plan = "plan_XX"),
      trial_period_days = 7
    )
  ),
  encode = "form"
)

Который выходит с ошибкой 

Error in vapply(elements, encode, character(1)) : 
  values must be length 1,
 but FUN(X[[6]]) result is length 2

Кажется, проблема связана с параметрами card и subscription_data. По крайней мере, subscription_data должен иметь тип словаря. Как справиться с этим с помощью httr?

1 Ответ

0 голосов
/ 12 июля 2019

Я решил проблему, установив параметры тела как можно ближе к исходной команде curl 

httr::POST(
  url = "https://api.stripe.com/v1/checkout/sessions",
  config = httr::add_headers(
    Authorization = paste("Bearer", Sys.getenv("stripe_key"))
  ),
  body = list(
    `success_url` = "https://example.com/success",
    `cancel_url` = "https://example.com/cancel",
    `payment_method_types[]` = "card",
    `subscription_data[items][][plan` = "plan_XX"
  ),
  encode = "form"
)
...