RShiny - A Web App

class: center, middle, inverse, title-slide

.title[
# RShiny - A Web App
]
.subtitle[
## A small introduction to RShiny.
]
.author[
### Suhas P K
]
.date[
### 2023-08-13
]

---

## Shiny Web app

- Shiny is a very powerful framework for building web applications based on R.

- Shiny apps are easy to write. Let users interact with your data and your analysis, all with R or Python.

- Using `library(shiny)`, this will be an amateur attempt to create small functional web application.

---

## Overview

- This is a final project from **Johns Hopkins Data Science Specialization: Developing Data Products**.

- This assignment consists of two parts

- Part 1 : A Shiny application.
  1. A well documented user friendly Shiny application
  2. Deploying the application on Rstudio's shiny server.
  3. It must consist of an `input widget` (textbox, radio button, checkbox, ...) and operation on the UI input in server.R file.
  4. A reactive display as the result of the server calculation.

- Part 2 : A Reproducible Pitch Presentation.
  1. It must consists of 5 slides to pitch the idea done in the Slidify or Rstudio Presenter.
  2. The presentation should be pushed to github or Rpubs.
  3. It must be hosted on github pages or Rpubs.

---
## Implementation and Visualization

- Diamond data set is part of `library(ggplot2)` available in the R is used for this project.

- Based on the input given in the Shiny web application from the data set, a reactive plot is generated.

- The link to web app. [CLICK ME!](https://suhaspk.shinyapps.io/Diamonds_ShinyApp)

---
## The Diamonds data set

```r
DT::datatable(head(diamonds), fillContainer = FALSE, options = list(pageLength = 6))
```

<div class="datatables html-widget html-fill-item-overflow-hidden html-fill-item" id="htmlwidget-fc5fc483e6d3962f0fdb" style="width:100%;height:auto;"></div>
<script type="application/json" data-for="htmlwidget-fc5fc483e6d3962f0fdb">{"x":{"filter":"none","vertical":false,"fillContainer":false,"data":[["1","2","3","4","5","6"],[0.23,0.21,0.23,0.29,0.31,0.24],["Ideal","Premium","Good","Premium","Good","Very Good"],["E","E","E","I","J","J"],["SI2","SI1","VS1","VS2","SI2","VVS2"],[61.5,59.8,56.9,62.4,63.3,62.8],[55,61,65,58,58,57],[326,326,327,334,335,336],[3.95,3.89,4.05,4.2,4.34,3.94],[3.98,3.84,4.07,4.23,4.35,3.96],[2.43,2.31,2.31,2.63,2.75,2.48]],"container":"<table class=\"display\">\n  <thead>\n    <tr>\n      <th> <\/th>\n      <th>carat<\/th>\n      <th>cut<\/th>\n      <th>color<\/th>\n      <th>clarity<\/th>\n      <th>depth<\/th>\n      <th>table<\/th>\n      <th>price<\/th>\n      <th>x<\/th>\n      <th>y<\/th>\n      <th>z<\/th>\n    <\/tr>\n  <\/thead>\n<\/table>","options":{"pageLength":6,"columnDefs":[{"className":"dt-right","targets":[1,5,6,7,8,9,10]},{"orderable":false,"targets":0}],"order":[],"autoWidth":false,"orderClasses":false,"lengthMenu":[6,10,25,50,100]}},"evals":[],"jsHooks":[]}</script>
---
### `summary` of Diamonds data set

```r
summary(diamonds)
```

```
     carat               cut        color        clarity          depth      
 Min.   :0.2000   Fair     : 1610   D: 6775   SI1    :13065   Min.   :43.00  
 1st Qu.:0.4000   Good     : 4906   E: 9797   VS2    :12258   1st Qu.:61.00  
 Median :0.7000   Very Good:12082   F: 9542   SI2    : 9194   Median :61.80  
 Mean   :0.7979   Premium  :13791   G:11292   VS1    : 8171   Mean   :61.75  
 3rd Qu.:1.0400   Ideal    :21551   H: 8304   VVS2   : 5066   3rd Qu.:62.50  
 Max.   :5.0100                     I: 5422   VVS1   : 3655   Max.   :79.00  
                                    J: 2808   (Other): 2531                  
     table           price             x                y         
 Min.   :43.00   Min.   :  326   Min.   : 0.000   Min.   : 0.000  
 1st Qu.:56.00   1st Qu.:  950   1st Qu.: 4.710   1st Qu.: 4.720  
 Median :57.00   Median : 2401   Median : 5.700   Median : 5.710  
 Mean   :57.46   Mean   : 3933   Mean   : 5.731   Mean   : 5.735  
 3rd Qu.:59.00   3rd Qu.: 5324   3rd Qu.: 6.540   3rd Qu.: 6.540  
 Max.   :95.00   Max.   :18823   Max.   :10.740   Max.   :58.900  
                                                                  
       z         
 Min.   : 0.000  
 1st Qu.: 2.910  
 Median : 3.530  
 Mean   : 3.539  
 3rd Qu.: 4.040  
 Max.   :31.800  
                 
```
---
## Data Analysis

- The [diamonds shiny web app](https://suhaspk.shinyapps.io/Diamonds_ShinyApp) is an interactive web application that generates plots.
- Based on the variables that is set to plot, an interactive plot is generated.
- The plotting also supports `facets`.
- After generating the plot, the user can give `title` to the plot and can download the plot in .png format. 
---
class: center, middle
# CLICK HERE!
## [My Github](https://github.com/SuhasPK/My-first-Shiny-Application)
## [My Diamond Shiny Web Application](https://suhaspk.shinyapps.io/Diamonds_ShinyApp)
---
class: inverse, center, middle
# Thank you!