r - 如何通过按下 Shiny 中的提取按钮来运行应用程序

Question

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

当我在 R 闪亮的应用程序中提交提取按钮时，我想做同样的事情。我在下面生成了 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)

标签： ruser-interfaceshinyshinyappsrshiny