r - 将 Stripe Checkout 与 R Shiny App 集成

Question

[与 R Shiny 的 Google 小组交叉发布 - 我等了 24 小时]

以下代码将呈现 checkout如果我简单地将其保存为 .html，则通常来自 Stripe 的按钮并用火狐打开它:

<h1> this is a test </h1>
<form action="" method="POST">
  <script
    src="https://checkout.stripe.com/checkout.js" class="stripe-button"
    data-key="pk_test_qdunoptxl9KNXR5qk7WdtkVg"
    data-amount="2000"
    data-name="Demo Site"
    data-description="2 widgets ($20.00)"
    data-image="/128x128.png">
  </script>
</form>

但将其放置在 R Shiny 应用程序中，如下所示:

output$StripeCheckOut <- renderUI({
  div(class="span6", 
     div(HTML('
                <h1> this is a test </h1>
                <form action="" method="POST">
                  <script
                   src="https://checkout.stripe.com/checkout.js" class="stripe-button"
                   data-key="pk_test_qdunoptxl9KNXR5qk7WdtkVg"
                   data-amount="2000"
                   data-name="Demo Site"
                   data-description="2 widgets ($20.00)"
                   data-image="/128x128.png">
                 </script>
               </form>
            ')))

将导致 This is a Test 下的空白字段文本。

似乎 R Shiny 不允许 Javascript 在 dom 呈现页面后动态加载按钮。

如何在 R Shiny 应用程序中包含基本的 Stripe Checkout 按钮？

Answer 1

如果我包括:

 HTML('
        <h1> this is a test </h1>
        <form action="" method="POST">
          <script
           src="https://checkout.stripe.com/checkout.js" class="stripe-button"
           data-key="pk_test_qdunoptxl9KNXR5qk7WdtkVg"
           data-amount="2000"
           data-name="Demo Site"
           data-description="2 widgets ($20.00)"
           data-image="/128x128.png">
          </script>
        </form>
       ')

里面 ui.r直接，它可以工作 - 但将其放在条件面板中将不允许 Stripe JS 加载。

相反，我使用了 html data-display-if健康)状况:

<div align="center" data-display-if="output.Unpaid==True">
...
</div>

一切正常!

这也很好，因为它允许您将条件绑定(bind)到 Shiny output对象与 input有时更容易使用的对象。

进一步测试后更新

事实证明我的编辑不太奏效。 Stripe Checkout JS 加载后，它会阻止我的 Shiny App 与页面上的其他 JS 元素交互。

似乎与 Stripe JS 和内部 Shiny JS 有一些冲突......

新更新

最新版本的 Shiny (0.9.1) 已经修复了这个问题。
似乎与 js 头和单例有关，它们已在最新版本中进行了更新。

这不再是问题，
现在您可以直接在 Shiny 中使用 Stripe。