inst/webApps/definitionApp/server.R

In distcomp: Computations over Distributed Data without Aggregation

shinyServer(function(input, output, session) {


  output$projectSummary <- renderText({
      if(input$printProjectSummary == 0) return()
          isolate({
              paste("Project Summary: ")
          })
    })


  output$name <- renderText({
      if(input$printProjectSummary == 0) return()
        isolate({
        paste("Project name: ", input$nameIn)
      })
    })


  output$desc <- renderText({
    if(input$printProjectSummary == 0) return()
      isolate({
        paste("Description: ", input$descIn)
    })
  })

  output$compType <- renderText({
    if (input$gotoDataInputs ==0 ) return()
    available <- availableComputations()
    availableDesc <- lapply(available, function(x) x$desc)
    chosen <- match(input$compType, availableDesc)
    compType <- names(available)[chosen]
    setComputationInfo("compType", compType)
    setComputationInfo("projectName", input$nameIn)
    setComputationInfo("projectDesc", input$descIn)
    setComputationInfo("he", ifelse(input$he == "Yes", TRUE, FALSE))
    sprintf("%s chosen (Homomomorphic Computation = ).", input$compType, input$he)
  })

  observe({
    if (input$gotoDataInputs ==0 ) return()
    available <- availableComputations()
    availableDesc <- lapply(available, function(x) x$desc)
    chosen <- match(input$compType, availableDesc)
    compType <- names(available)[chosen]
    setComputationInfo("compType", compType)
    setComputationInfo("projectName", input$nameIn)
    setComputationInfo("projectDesc", input$descIn)
    setComputationInfo("he", ifelse(input$he == "Yes", TRUE, FALSE))
    stopApp(compType)
  })
})