inst/shiny-examples/area/server.R

In ptds2021/pkghw4g6: Estimate and plot the area of a shape

#
# This is the server logic of a Shiny web application. You can run the
# application by clicking 'Run App' above.
#
# Find out more about building applications with Shiny here:
#
#    http://shiny.rstudio.com/
#


library(pkghw4g6)
library(shiny)

shinyServer(function(input, output) {

    simulate <- reactive({

        return(
            list(estimate_area(B = input$B, seed = input$seed),system.time(estimate_area(B = input$B, seed = input$seed))))

    })

    output$plot <- renderPlot({
        plot_area(simulate()[[1]])
    })

    output$area <- renderText({
        # extract the estimated value
        paste("The are of the shape S is:", simulate()[[1]][1] )
    })

    output$time <- renderText({
        # extract the time of the execution
        paste("execution time is :", simulate()[[2]][1])
    })
})