server.R

In bartvink/Developing-Data-Products: Residual value model

library(splines)
library(shiny)
library(rCharts)

Data <- readRDS("WebScrapeRenaultCars.Rda")

RenaultPriceModel = lm(Price ~ ns(Kilometers, df = 5 ) * model + ns(Age, df = 3),
                       data = Data)

RenaultScorer = function(Kilometers, Age, model)
{
        require(splines)
        return(
                predict.lm(
                        RenaultPriceModel, 
                        data.frame("Kilometers" = Kilometers, "Age" = Age, "model" = model)
                )
        )
}

shinyServer(
        function(input, output) {
                output$kilometers       <- renderPrint({input$kilometers})
                output$age              <- renderPrint({input$age})
                output$model            <- renderPrint({input$model})
                output$ResidualValue    <- renderPrint({RenaultScorer(input$kilometers, input$age, input$model)})
                }
        )