Pitch of the Shiny App

• This presentation is part of the Developing Data Products course project submission.
• The Shiny application pitched by this presentation could be found here https://halici.shinyapps.io/Gapminder-Data-Visualization-using-Shiny-and-Plotly/)

• The Shiny app source code is available at Github

• The application is written in Shiny

• The source code consists of two files: server.R and ui.R, defining the server logic and the user-interface, respectively

• The application is hosted on Rstudio's shiny server in the cloud (Shinyapps.io)

• The app visualizes Iris data
• User selects part of a flower sepal or petal that they want to visualize measurments for
• There is an option to filter down to certain lengths and widths only
• The output is a scatter plot showing length and width relationship for a selected part of a flower (sepal or petal) by different Iris species

Such filtering makes it easier to see data patterns and visualise it, so go and try the app!

    filtered_data <- reactive({
        data <- IrisData
        data <- select(
                 data,
                 which(grepl(input$variable, names(data))|grepl("Species", names(data)))
            )
        colnames(data) = gsub("Sepal.", "", colnames(data))
        colnames(data) = gsub("Petal.", "", colnames(data))
        data <- subset(
            data,
            data$Length >= input$length[1] & data$Length <= input$length[2] &
                data$Width >= input$width[1] & data$Width <= input$width[2]
            )
        data
    })
    Text1 <- reactive({
        paste(input$variable, " Length")
    })
    Text2 <- reactive({
        paste(input$variable, " Width")
    })
    Text3 <- reactive({
        paste(input$variable, " Length vs Width by Iris Species")
    })