Я пытаюсь создать сеанс полосы в блестящем, чтобы инициировать процесс оплаты. (документы Stripe)
У меня есть этот почтовый запрос curl:
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 и subscribe_data. По крайней мере, атрибут subscribe_data должен иметь тип словаря. Как справиться с этим с помощью httr?