Ich habe versucht, den Vorschlägen eines Kommentators (mit dem Namen: warmoverflow) in einer Frage zu folgen, die ich gestern gepostet habe:Wie übergebe ich Werte aus Eingabefeldern mit glänzender Benutzeroberfläche zurück in die Variablen eines R-Skripts und führe sie aus?

Ich habe beschlossen, den von ihm vorgeschlagenen Ansatz zunächst in einem kurzen Beispiel auszuprobieren. Also habe ich ein R-Skript erstelltmathops.R enthält eine Funktion mit kleinen mathematischen Operationen. Es ist wie folgt:

mathops.R:

mathops <- function(a,b) {
  print(paste0("Addition of two number is: ", a+b))
  print(paste0("Multiplication of two number is: ", a*b))
}

Ich habe eine Benutzeroberfläche mit zwei Textfeldern entwickelt, über die die oben genannten Variablen eingegeben werden.a undb und eine Aktionsschaltfläche zum Anzeigen der Ausgabe. Es ist wie folgt:

ui.R:

library(shiny)
shinyUI(fluidPage(
  headerPanel("Inputting from Interface to Script"),

  sidebarPanel( 
    #'a' input
    textInput(inputId = "a", 
              label = h4("Enter a:"), 
              value = ""),

    textInput(inputId = "b", 
              label = h4("Enter b:"), 
              value = ""),

    actionButton(inputId = "input_action", label = "Show Inputs")),



  mainPanel( 
    h2("Input Elements"))
    textOutput("td"))


))

und jetzt, wie er vorgeschlagen hat, habe ich versucht, den Code für @ zu entwickeserver.R Datei

server.R:

library(shiny)
source(mathops.R)

shinyServer(function(input, output) {

  a <- eventReactive( input$input_action, {
    input$a 
  })

  b <- eventReactive( input$input_action, {
    input$b
  })

  output$td <- renderDataTable({
    mathops()
  })

}

Aber hier stehe ich vor einer Sackgasse. Ich konnte mir einfach nicht vorstellen, wie ich das verbinden sollmathops.R script intoserver.R Datei, sodass die Eingabe aus den Eingabefeldern der Benutzeroberfläche übernommen und an die Variablen übergeben wirda undb desmathops() -Funktion im oben gezeigten R-Skript.

Ich bin neu zu glänzend. Was vermisse oder missverstehe ich hier? Wie kann man diese Situation lösen?

Bitte hilfe!

Vielen Dank