当闪亮的应用程序通过单击按钮运行时如何运行 R 脚本？

如何解决当闪亮的应用程序通过单击按钮运行时如何运行 R 脚本？

我的要求是每当单击按钮时从闪亮的应用程序运行脚本，并在脚本运行后在 UI 中显示结果。

我在服务器内部尝试了以下操作，但仅当我重新加载应用程序时，UI 才会显示更新的结果。

source("recalculate.R",local = TRUE)

而以下根本不起作用。

observeEvent(input$recalculatebtn,source("recalculate.R",local = TRUE))

谁能帮我解决这个问题？

在下面添加一个非常基本的示例案例。

数据：

TableA = data.frame(A = c(1:3),B = c(4:6))

重新计算.R：

TableC = data.frame(C = TableA$A * TableA$B)

界面：

ui = shinyUI(
  fluidPage(
    
    
      sidebarPanel(
                    conditionalPanel(condition = "input.tabselected == 'tab1'",actionButton("recalcbtn","Recalculate"))
                  ),mainPanel(uIoUtput("mainpanel"))
    )
  )

服务器：

 server = function(input,output,session) {
   
    output$mainpanel = renderUI({
      
      tabsetPanel(
        tabPanel("ModifyTableA",value = 'tab1',rHandsontableOutput("OTableA")),tabPanel("UpdatedValues",value = 'tab2',DT::dataTableOutput("OTableC")),id ="tabselected"
      )
      
    })
     
    
    indat <- reactiveValues(data=TableA)
    
    output$OTableA = 
      renderRHandsontable({
        indat$data <- TableA
        rhandsontable(indat$data)
      })
    
    output$OTableC = DT::renderDataTable(TableC)
    
    observeEvent(input$recalcbtn,{
TableA <<- input$OTableA
source("Recalculate.R",local = TRUE))
}
    
  }

解决方法

以下是使用 reactiveVal 的简化示例。
我没有深入讨论 handsontable 的细节，这将是另一个问题，但 input$OTableA 不会这样工作，因为它返回一个完整的表对象，而不仅仅是数据。

library(rhandsontable)
TableA = data.frame(A = c(1:3),B = c(4:6))
TableC = data.frame(C = TableA$A )

library(shiny)
ui = shinyUI(
  fluidPage(


    sidebarPanel(
      conditionalPanel(condition = "input.tabselected == 'tab1'",actionButton("recalcbtn","Recalculate"))
    ),mainPanel(uiOutput("mainpanel"))
  )
)

server = function(input,output,session) {

  output$mainpanel = renderUI({

    tabsetPanel(
      tabPanel("ModifyTableA",value = 'tab1',rHandsontableOutput("OTableA")),tabPanel("UpdatedValues",value = 'tab2',DT::dataTableOutput("OTableC")),id ="tabselected"
    )

  })

  TableC_react <- reactiveVal(TableC)
  indat <- reactiveValues(data=TableA)

  output$OTableA =
    renderRHandsontable({
      indat$data <- TableA
      rhandsontable(indat$data)
    })

  output$OTableC = DT::renderDataTable(TableC_react())

  observeEvent(input$recalcbtn,{

                 #source("Recalculate.R",local = TRUE)
                 result <- TableC_react()+1 # could be the result of Recalculate
                 TableC_react(result)
  })

}

shinyApp(ui=ui,server)