如何通过在 Shiny 中按提取按钮来运行应用程序

如何解决如何通过在 Shiny 中按提取按钮来运行应用程序

我准备了一个 R 脚本“extract.R”，它从 PDF 中提取表格并将结果保存为 csv 文件。我正在通过 R 闪亮的应用程序采购此脚本。

当我在 R 闪亮应用程序中提交 Extract 按钮时，我想做同样的事情。我在下面生成了 Shiny 应用程序，但是当我运行它时，它会在控制台中生成一个数据框，而不是 Shiny 中的主面板。我在代码中获取extract.R

由于我是闪亮的新手，如果有人能帮助我，我将不胜感激。

library(shiny)
ui <- navbarPage(
  tabPanel("Email",sidebarLayout(
             sidebarPanel(
               actionButton("dataset","Extract")
             ),mainPanel()
           )
  )
)

server <- function(input,output,session) {
  ###EMAIL TAB###
  #send monday email reminder
  observeEvent(input$dataset,{
    source("Extract.R",local = TRUE)
  })
}

shinyApp(ui,server)