reproducible pitch presentation (Assignment)

Shiny is a package from RStudio that can be used to build interactive web pages with R.With some basic knowledge of HTML one can do eb development.
This presentation includes the source code as well plots for the proposed project.In this prsentation, we’ll see building of a Shiny app using a dataset that lets you explore the products available at the BC Liquor Store.
The dataset we’ll be using contains information about all the products sold by BC Liquor Store and is provided by OpenDataBC. They provide a direct link to download a csv version of the data, and this data has the rare quality that it is immediately clean and useful.

library(shiny)
library(magrittr) 
library(dplyr)
library(ggplot2)
bcl <- read.csv("bcl-data.csv", stringsAsFactors = FALSE)
ui <- fluidPage(
  titlePanel("BC Liquor Store prices"),
  sidebarLayout(
    sidebarPanel(
      sliderInput("priceInput", "Price", 0, 100, c(25, 40), pre = "$"),
      radioButtons("typeInput", "Product type",
                   choices = c("BEER", "REFRESHMENT", "SPIRITS", "WINE"),
                   selected = "WINE"),
      selectInput("countryInput", "Country",
                  choices = c("CANADA", "FRANCE", "ITALY"))
    ),
    mainPanel("the results will go here")
  )
)

server <- function(input, output) {}

server <- function(input, output) {
    output$countryOutput <- renderUI({
      selectInput("countryInput", "Country",
                  sort(unique(bcl$Country)),
                  selected = "CANADA")
    })  

    filtered <- reactive({
      if (is.null(input$countryInput)) {
        return(NULL)
      }    

      bcl %>%
        filter(Price >= input$priceInput[1],
               Price <= input$priceInput[2],
               Type == input$typeInput,
               Country == input$countryInput
        )
    })

    output$coolplot <- renderPlot({
      if (is.null(filtered())) {
        return()
      }
      ggplot(filtered(), aes(Alcohol_Content)) +
        geom_histogram()
    })

    output$results <- renderTable({
      filtered()
    })
  }

This app helps you to classify your desired produts of the shop according to what money you have in your pocket according to your country. The app includes following input methods

• Input for price
• Input for product type
• Input for country
• And placeholders for output.