0

我准备了一个 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)
4

0 回答 0