index.Rmd

---
title: "Building Shiny apps"
author: "inSileco Team"
date: 2022-10-09
output:
  xaringan::moon_reader:
    css: [default, rd.css, rd-font.css, "hygge"]
    lib_dir: assets
    seal: false
    nature:
      highlightStyle: dracula
      countIncrementalSlides: false
      beforeInit: "macros.js"
---


```{r setup, include = FALSE}
source("_setup.R")
# knitr::clean_cache(TRUE)
htmltools::tagList(
  xaringanExtra::use_clipboard(
    button_text = "<i class=\"fa fa-clipboard\"></i>",
    success_text = "<i class=\"fa fa-check\" style=\"color: #37abc8\"></i>",
  ),
  rmarkdown::html_dependency_font_awesome()
)
# xaringanExtra::use_scribble()
```


class: title-slide, middle


## .font120[Building Shiny Apps]

<br>

.instructors[
  .font180[`r rp()` Workshop]
  <br><br><br>
  .authors140[David Beauchesne, Kevin Cazelles & Steve Vissault]
  <br><br>
  `r format(Sys.time(), '%B %d, %Y')`
  <br>
  .font200[
  [`r gh()`](https://github.com/inSilecoInc/cws-shiny-workshop)
  [`r db()`](http://www.insileco.io/cws-shiny-workshop/data_and_script.zip)
  ]
]

<br>
<img src="img/logoW.png" width="140px"></img>

[![deploy workshop](https://github.com/inSilecoInc/cws-shiny-workshop/actions/workflows/deploy.yml/badge.svg)](https://github.com/inSilecoInc/cws-shiny-workshop/actions/workflows/deploy.yml)


.instructors[Content under [`r rfa("creative-commons")` `r rfa("creative-commons-by")`](https://creativecommons.org/licenses/by/4.0/) unless otherwise specified.]



---

class: inverse, center, middle

# Learning objectives

![:custom_hr]()



---
# Learning objectives

--

### 1. Understand what is Shiny.

--

### 2. Understand how reactive programming works in Shiny.

--

### 3. Learn how a Shiny app is structured.

--

### 4. Learn how to develop your own basic Shiny app.

--

### 5. Learn how to debug a Shiny app.


---
# Technical objectives

### Build a Shiny app that: 

--
- uses tabular and spatial data 

--
- allows a user to filter the data based on
  - table attributes
  - spatial attributes

--
- provides a summary of the filtered data


???
There is much more to it but we hope we'll give you all the fundamentals

---
class: inverse, center, middle

# Introduction to Shiny

![:custom_hr]()

[`r lk()` Introduction to Shiny](_01_shiny_intro.html)


---
class: inverse, center, middle

# Our first Shiny app

![:custom_hr]()

[`r lk()` Minimal shiny](_02_shiny_mini.html)


---
class: inverse, center, middle

# Our shiny app V2

![:custom_hr]()

[`r lk()` Shiny app with spatial filtering](_03_shiny_spatial.html)

---
class: inverse, center, middle

# Shiny in production

![:custom_hr]()

[`r lk()` Shiny in production](_05_shiny_in_prod.html)


---
class: inverse, center, middle

# Our shiny app V3

![:custom_hr]()

[`r lk()` Shiny app with a synthesis tab](_04_shiny_synthesis.html)




```{R, child = "_last.Rmd"}
```