inst/shiny-examples/pi/server.R

In vincentlomazzi/ptds2018hw4g5: Approximation of pi

library(shiny)
library(ptds2018hw4g5)

shinyServer(function(input, output) {


  simulate <- eventReactive(input$button, {
    # simulate pi and measure the time here

    if (input$method == "estimate_pi") {
      estimated_pi <- estimate_pi(B = input$B, seed = input$seed)
    } else {
      estimated_pi <- estimate_pi2(B = input$B, seed = input$seed)
    }
    return(estimated_pi)

  })

  simulated_time <- eventReactive(input$button, {
    if (input$method == "estimate_pi") {
      system.time({ estimate_pi(B = input$B, seed = input$seed) })
    } else {
      system.time({ estimate_pi2(B = input$B, seed = input$seed) })
    }
  })

  output$plot <- renderPlot({
    plot(simulate())
  })

  output$time <- renderText({
    # extract the time of the execution
    paste("The time to run find the estimation of pi for the user is equal to",
          round(simulated_time()[3], 4), "seconds."
    )
  })

  output$pi <- renderText({
    # extract the estimated value
    paste("The estimation for pi is equal to",
          round(simulate()[[1]], 6)
    )
  })
}
)