How can I connect R Script with Shiny app in R?

问题

I have developed an R Script and now I want to connect this R Script with Shiny app. i.e., I am developing my GUI in Shiny but I am facing the problems in connecting the RScript and Shiny. I want to call the output of the RScript using the Shiny app.

I have looked around the RStudio Shiny app development tutorials but it didn't help me in connectivity. Is there any way I solve this problem?

If possible can you give me the code for "How can I call RScript on button click using shiny app".

UPDATE:

Can you help me with something like this: I want to upload the csv file using shiny app (GUI) and then based on CSV file, I have made a RScript which uses plot() function, and this plot is what I want to show over the Shiny app GUI.

回答1:

You can just use source like you would a normal R script. Let's say you have an R script called myscript.R and it has a function called calculate() and you want to call it when the user presses a button in Shiny.

source("myscript.R")

runApp(shinyApp(
  ui = fluidPage(
    actionButton("btn", "calculate")
  ),
  server = function(input, output, session) {
    observeEvent(input$btn, {
      calculate()
    })
  }
))

来源：https://stackoverflow.com/questions/31376169/how-can-i-connect-r-script-with-shiny-app-in-r