小编bda*_*002的帖子

我正在尝试将 Paypal 集成到 R Shiny 应用程序中。我已成功设置沙箱并确认付款。但是，我不太清楚如何让应用程序立即下载 csv 文件或在成功付款后显示一个新按钮以允许下载。基本上，我希望每次下载清理后的 csv 数据集时收取便宜的费用。这是 ui/server 部分，包括我尝试过的一些反应性的东西（我一直在尝试使用shinyJS来绕过它，但无济于事）。

#ui
fluidRow(
        column(width = 12,
               boxPlus(
                 title = 'Bulk Financial Download - By Ticker',
                 closable = FALSE,
                 width = 12,
                 status = "info",
                 solidHeader = FALSE,
                 collapsible = TRUE,
                 enable_dropdown = FALSE,
                 fluidRow(
                   column(width = 3,
                 actionButton("Calculate", 
                              label = ui <- fluidPage(
                                tags$script(src = "https://www.paypalobjects.com/api/checkout.js "),
                                tags$script("paypal.Button.render({
                                // Configure environment
                                env: 'sandbox',
                                client: {
                                sandbox: 'hidden',
                                production: 'demo_production_client_id'
                                },
                                // Customize button (optional)
                                locale: 'en_US',
                                style: {
                                size: …