Analysis of the mtcars dataset

The app developed for the first part of the assignment is avalilable at: URL:https://amansinha.shinyapps.io/server

Source code for ui.R and server.R files are available on the GitHub at: https://github.com/amansinha16/developing-data-products

The mtcars dataset is included in R

Motor Trend Car Road Tests

This reproducible pitch presentation is linked to an application designed for a company to reduce cost on car rental expenses. The app developed for the first part of the assignment is avalilable at: URL: https://amansinha.shinyapps.io/server Source code for ui.R and server.R files are available on the GitHub at:URL: https://github.com/amansinha16/developing-data-products The mtcars dataset is included in R

Source

library(datasets)
head(mtcars, 3)

##                mpg cyl disp  hp drat    wt  qsec vs am gear carb
## Mazda RX4     21.0   6  160 110 3.90 2.620 16.46  0  1    4    4
## Mazda RX4 Wag 21.0   6  160 110 3.90 2.875 17.02  0  1    4    4
## Datsun 710    22.8   4  108  93 3.85 2.320 18.61  1  1    4    1

A data frame with 32 observations on 11 variables.

library(shiny)
library(datasets)
library(dplyr)

shinyServer(function(input, output) {

    # To filter cars based on features
    output$table <- renderDataTable({
        disp_seq <- seq(from = input$disp[1], to = input$disp[2], by = 0.1)
        hp_seq <- seq(from = input$hp[1], to = input$hp[2], by = 1)
        data <- transmute(mtcars, Car = rownames(mtcars), MilesPerGallon = mpg, 
                          GasolineExpenditure = input$dis/mpg*input$cost,
                          Cylinders = cyl, Displacement = disp, Horsepower = hp, 
                          Transmission = am)
        data <- filter(data, GasolineExpenditure <= input$gas, Cylinders %in% input$cyl, 
                       Displacement %in% disp_seq, Horsepower %in% hp_seq, Transmission %in% input$am)
        data <- mutate(data, Transmission = ifelse(Transmission==0, "Automatic", "Manual"))
        data <- arrange(data, GasolineExpenditure)
        data
    }, options = list(lengthMenu = c(5, 15, 30), pageLength = 30))
})