如何使用 httr 创建条带会话答案

【问题标题】：How to create a stripe session with httr如何使用 httr 创建条带会话
【发布时间】：2023-03-31 07:08:01
【问题描述】：

我正在尝试在闪亮中创建一个条带会话以启动付款流程。 (Stripe docs)

我有这个 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

在 R 中使用 httr 尝试类似的命令（包括 line_items 的订阅）总是会引发错误。
到目前为止，我试过这个：

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

问题似乎是由于参数卡和订阅数据。至少 subscription_data 需要是字典类型。如何用 httr 处理这个问题？

【问题讨论】：

标签： r curl shiny stripe-payments httr

【解决方案1】：

我通过将 body 参数设置为尽可能接近原始 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"
)

【讨论】：