The New Roads Leading to Shiny Nirvana

layout: true

<div class="my-footer"><span>bit.ly/rph2021shiny&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;R/Pharma 2021&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;github.com/rpodcast/rph2021_shinynirvana</span></div>

---

class: title-slide, right, middle
background-image: url("assets/images/road_mountain.jpg")
background-position: center
background-size: cover

div.transbox h1 {
  color: #000000;
}

div.transbox h2 {
  color: #000000;
}

div.transbox h3 {
  color: #000000;
}

div.transbox h4 {
  color: #000000;
}
</style>

.pull-right[
.transbox[
# The New Roads Leading to Shiny Nirvana

## R/Pharma 2021

### Eric Nantz

### 2021-11-04

### Slides available at [bit.ly/rph2021shiny](https://bit.ly/rph2021shiny)
]
]

---
name: hello
background-image: url("assets/images/sky_background.jpg")
background-position: center
background-size: cover
class: middle, center

# .black[Hello!]

.link-box[
[<svg viewBox="0 0 496 512" style="height:1em;position:relative;display:inline-block;top:.1em;" xmlns="http://www.w3.org/2000/svg">  <path d="M165.9 397.4c0 2-2.3 3.6-5.2 3.6-3.3.3-5.6-1.3-5.6-3.6 0-2 2.3-3.6 5.2-3.6 3-.3 5.6 1.3 5.6 3.6zm-31.1-4.5c-.7 2 1.3 4.3 4.3 4.9 2.6 1 5.6 0 6.2-2s-1.3-4.3-4.3-5.2c-2.6-.7-5.5.3-6.2 2.3zm44.2-1.7c-2.9.7-4.9 2.6-4.6 4.9.3 2 2.9 3.3 5.9 2.6 2.9-.7 4.9-2.6 4.6-4.6-.3-1.9-3-3.2-5.9-2.9zM244.8 8C106.1 8 0 113.3 0 252c0 110.9 69.8 205.8 169.5 239.2 12.8 2.3 17.3-5.6 17.3-12.1 0-6.2-.3-40.4-.3-61.4 0 0-70 15-84.7-29.8 0 0-11.4-29.1-27.8-36.6 0 0-22.9-15.7 1.6-15.4 0 0 24.9 2 38.6 25.8 21.9 38.6 58.6 27.5 72.9 20.9 2.3-16 8.8-27.1 16-33.7-55.9-6.2-112.3-14.3-112.3-110.5 0-27.5 7.6-41.3 23.6-58.9-2.6-6.5-11.1-33.3 2.6-67.9 20.9-6.5 69 27 69 27 20-5.6 41.5-8.5 62.8-8.5s42.8 2.9 62.8 8.5c0 0 48.1-33.6 69-27 13.7 34.7 5.2 61.4 2.6 67.9 16 17.7 25.8 31.5 25.8 58.9 0 96.5-58.9 104.2-114.8 110.5 9.2 7.9 17 22.9 17 46.4 0 33.7-.3 75.4-.3 83.6 0 6.5 4.6 14.4 17.3 12.1C428.2 457.8 496 362.9 496 252 496 113.3 383.5 8 244.8 8zM97.2 352.9c-1.3 1-1 3.3.7 5.2 1.6 1.6 3.9 2.3 5.2 1 1.3-1 1-3.3-.7-5.2-1.6-1.6-3.9-2.3-5.2-1zm-10.8-8.1c-.7 1.3.3 2.9 2.3 3.9 1.6 1 3.6.7 4.3-.7.7-1.3-.3-2.9-2.3-3.9-2-.6-3.6-.3-4.3.7zm32.4 35.6c-1.6 1.3-1 4.3 1.3 6.2 2.3 2.3 5.2 2.6 6.5 1 1.3-1.3.7-4.3-1.3-6.2-2.2-2.3-5.2-2.6-6.5-1zm-11.4-14.7c-1.6 1-1.6 3.6 0 5.9 1.6 2.3 4.3 3.3 5.6 2.3 1.6-1.3 1.6-3.9 0-6.2-1.4-2.3-4-3.3-5.6-2z"></path></svg> @rpodcast](https://github.com/rpodcast)  
[<svg viewBox="0 0 512 512" style="height:1em;position:relative;display:inline-block;top:.1em;" xmlns="http://www.w3.org/2000/svg">  <path d="M459.37 151.716c.325 4.548.325 9.097.325 13.645 0 138.72-105.583 298.558-298.558 298.558-59.452 0-114.68-17.219-161.137-47.106 8.447.974 16.568 1.299 25.34 1.299 49.055 0 94.213-16.568 130.274-44.832-46.132-.975-84.792-31.188-98.112-72.772 6.498.974 12.995 1.624 19.818 1.624 9.421 0 18.843-1.3 27.614-3.573-48.081-9.747-84.143-51.98-84.143-102.985v-1.299c13.969 7.797 30.214 12.67 47.431 13.319-28.264-18.843-46.781-51.005-46.781-87.391 0-19.492 5.197-37.36 14.294-52.954 51.655 63.675 129.3 105.258 216.365 109.807-1.624-7.797-2.599-15.918-2.599-24.04 0-57.828 46.782-104.934 104.934-104.934 30.213 0 57.502 12.67 76.67 33.137 23.715-4.548 46.456-13.32 66.599-25.34-7.798 24.366-24.366 44.833-46.132 57.827 21.117-2.273 41.584-8.122 60.426-16.243-14.292 20.791-32.161 39.308-52.628 54.253z"></path></svg> @theRcast](https://twitter.com/thercast)  
[<svg viewBox="0 0 352 512" style="height:1em;position:relative;display:inline-block;top:.1em;" xmlns="http://www.w3.org/2000/svg">  <path d="M176 352c53.02 0 96-42.98 96-96V96c0-53.02-42.98-96-96-96S80 42.98 80 96v160c0 53.02 42.98 96 96 96zm160-160h-16c-8.84 0-16 7.16-16 16v48c0 74.8-64.49 134.82-140.79 127.38C96.71 376.89 48 317.11 48 250.3V208c0-8.84-7.16-16-16-16H16c-8.84 0-16 7.16-16 16v40.16c0 89.64 63.97 169.55 152 181.69V464H96c-8.84 0-16 7.16-16 16v16c0 8.84 7.16 16 16 16h160c8.84 0 16-7.16 16-16v-16c0-8.84-7.16-16-16-16h-56v-33.77C285.71 418.47 352 344.9 352 256v-48c0-8.84-7.16-16-16-16z"></path></svg> r-podcast.org](https://r-podcast.org)  
[<svg viewBox="0 0 576 512" style="height:1em;position:relative;display:inline-block;top:.1em;" xmlns="http://www.w3.org/2000/svg">  <path d="M549.655 124.083c-6.281-23.65-24.787-42.276-48.284-48.597C458.781 64 288 64 288 64S117.22 64 74.629 75.486c-23.497 6.322-42.003 24.947-48.284 48.597-11.412 42.867-11.412 132.305-11.412 132.305s0 89.438 11.412 132.305c6.281 23.65 24.787 41.5 48.284 47.821C117.22 448 288 448 288 448s170.78 0 213.371-11.486c23.497-6.321 42.003-24.171 48.284-47.821 11.412-42.867 11.412-132.305 11.412-132.305s0-89.438-11.412-132.305zm-317.51 213.508V175.185l142.739 81.205-142.739 81.201z"></path></svg> ShinyDevSeries](https://youtube.com/shinydeveloperseries)  
[<svg viewBox="0 0 512 512" style="height:1em;position:relative;display:inline-block;top:.1em;" xmlns="http://www.w3.org/2000/svg">  <path d="M326.612 185.391c59.747 59.809 58.927 155.698.36 214.59-.11.12-.24.25-.36.37l-67.2 67.2c-59.27 59.27-155.699 59.262-214.96 0-59.27-59.26-59.27-155.7 0-214.96l37.106-37.106c9.84-9.84 26.786-3.3 27.294 10.606.648 17.722 3.826 35.527 9.69 52.721 1.986 5.822.567 12.262-3.783 16.612l-13.087 13.087c-28.026 28.026-28.905 73.66-1.155 101.96 28.024 28.579 74.086 28.749 102.325.51l67.2-67.19c28.191-28.191 28.073-73.757 0-101.83-3.701-3.694-7.429-6.564-10.341-8.569a16.037 16.037 0 0 1-6.947-12.606c-.396-10.567 3.348-21.456 11.698-29.806l21.054-21.055c5.521-5.521 14.182-6.199 20.584-1.731a152.482 152.482 0 0 1 20.522 17.197zM467.547 44.449c-59.261-59.262-155.69-59.27-214.96 0l-67.2 67.2c-.12.12-.25.25-.36.37-58.566 58.892-59.387 154.781.36 214.59a152.454 152.454 0 0 0 20.521 17.196c6.402 4.468 15.064 3.789 20.584-1.731l21.054-21.055c8.35-8.35 12.094-19.239 11.698-29.806a16.037 16.037 0 0 0-6.947-12.606c-2.912-2.005-6.64-4.875-10.341-8.569-28.073-28.073-28.191-73.639 0-101.83l67.2-67.19c28.239-28.239 74.3-28.069 102.325.51 27.75 28.3 26.872 73.934-1.155 101.96l-13.087 13.087c-4.35 4.35-5.769 10.79-3.783 16.612 5.864 17.194 9.042 34.999 9.69 52.721.509 13.906 17.454 20.446 27.294 10.606l37.106-37.106c59.271-59.259 59.271-155.699.001-214.959z"></path></svg> rweekly.org](https://rweekly.org)  
[<svg viewBox="0 0 512 512" style="height:1em;position:relative;display:inline-block;top:.1em;" xmlns="http://www.w3.org/2000/svg">  <path d="M391.17,103.47H352.54v109.7h38.63ZM285,103H246.37V212.75H285ZM120.83,0,24.31,91.42V420.58H140.14V512l96.53-91.42h77.25L487.69,256V0ZM449.07,237.75l-77.22,73.12H294.61l-67.6,64v-64H140.14V36.58H449.07Z"></path></svg> rpodcast](https://twitch.tv/rpodcast)  
[<svg viewBox="0 0 640 512" style="height:1em;position:relative;display:inline-block;top:.1em;" xmlns="http://www.w3.org/2000/svg">  <path d="M524.531,69.836a1.5,1.5,0,0,0-.764-.7A485.065,485.065,0,0,0,404.081,32.03a1.816,1.816,0,0,0-1.923.91,337.461,337.461,0,0,0-14.9,30.6,447.848,447.848,0,0,0-134.426,0,309.541,309.541,0,0,0-15.135-30.6,1.89,1.89,0,0,0-1.924-.91A483.689,483.689,0,0,0,116.085,69.137a1.712,1.712,0,0,0-.788.676C39.068,183.651,18.186,294.69,28.43,404.354a2.016,2.016,0,0,0,.765,1.375A487.666,487.666,0,0,0,176.02,479.918a1.9,1.9,0,0,0,2.063-.676A348.2,348.2,0,0,0,208.12,430.4a1.86,1.86,0,0,0-1.019-2.588,321.173,321.173,0,0,1-45.868-21.853,1.885,1.885,0,0,1-.185-3.126c3.082-2.309,6.166-4.711,9.109-7.137a1.819,1.819,0,0,1,1.9-.256c96.229,43.917,200.41,43.917,295.5,0a1.812,1.812,0,0,1,1.924.233c2.944,2.426,6.027,4.851,9.132,7.16a1.884,1.884,0,0,1-.162,3.126,301.407,301.407,0,0,1-45.89,21.83,1.875,1.875,0,0,0-1,2.611,391.055,391.055,0,0,0,30.014,48.815,1.864,1.864,0,0,0,2.063.7A486.048,486.048,0,0,0,610.7,405.729a1.882,1.882,0,0,0,.765-1.352C623.729,277.594,590.933,167.465,524.531,69.836ZM222.491,337.58c-28.972,0-52.844-26.587-52.844-59.239S193.056,219.1,222.491,219.1c29.665,0,53.306,26.82,52.843,59.239C275.334,310.993,251.924,337.58,222.491,337.58Zm195.38,0c-28.971,0-52.843-26.587-52.843-59.239S388.437,219.1,417.871,219.1c29.667,0,53.307,26.82,52.844,59.239C470.715,310.993,447.538,337.58,417.871,337.58Z"></path></svg> streamRs](https://discord.gg/X9CGQ6dwxZ)
]

---
class: middle, center

---
class: middle, center, inverse

# In the early days...

---
background-image: url("assets/images/monitor.png")
background-size: 70%

---

# On the other side of the screen...

.pull-left[
<img src="assets/images/kevin-flynn-tron.jpg" style="width:450px;">
]

.pull-right[
* Amazing possibilities with Shiny apps (many from R/Pharma!)
* But ... 
* How can I go from a prototype to __those__ applications?
* Is it possible without switching careers to a full time web developer?
]

.center[
## The Power is Within Reach!
]

---
layout: false

---
class: middle
background-image: url("assets/images/engineering_shiny.jpg")
background-position: left
background-size: 40% 90%

<div style="position:absolute;top:95%;left:10%;width:500px;height:100px;">
<a href="https://engineering-shiny.org">engineering-shiny.org</a>
</div>

.pull-right[
## Engineering Production-Grade Shiny Apps

### Colin Fay, Sebastien Rochette, Vincent Guyader, Cervan Girard
* __Trust the Process__ (of robust Shiny development)
* Embrace the software mindset by using [`{golem}`](https://thinkr-open.github.io/golem/)
* Logical workflow to build apps piece by piece
]

---
class: middle
background-image: url("assets/images/mastering-shiny-cover.png")
background-position: left
background-size: 40% 90%

<div style="position:absolute;top:95%;left:10%;width:500px;height:100px;">
<a href="https://mastering-shiny.org/">mastering-shiny.org</a>
</div>

.pull-right[
## Mastering Shiny

### Hadley Wickham

* Balanced approach of practical examples and fundamentals
* Demystifying the _magic_ of reactivity
* Reinforces powerful techniques for general R development
]

---

## Tidy Evaluation within Shiny

.panelset[
.panel[.panel-name[Shiny App]
![](assets/images/dplyr.png)
]

.panel[.panel-name[UI Code]
```r
ui <- fluidPage(
  selectInput("var", "Sort by", choices = names(mtcars)),
  checkboxInput("desc", "Descending order?"),
  tableOutput("data")
)
```
]

.panel[.panel-name[Server Code]
```r
server <- function(input, output, session) {
  sorted <- reactive({
    if (input$desc) {
      arrange(mtcars, desc(.data[[input$var]]))
    } else {
      arrange(mtcars, .data[[input$var]])
    }
  })
  output$data <- renderTable(sorted())
}
```

]
]
---
class:middle

<iframe frameborder=0 src="https://unleash-shiny.rinterface.com/mobile-pwa.html" style="position:absolute;top:0.55%;left:0.46%;width:600px;height:600px;"></iframe>

<div style="position:absolute;top:90%;left:10%;width:500px;height:100px;">
<a href="https://unleash-shiny.rinterface.com">unleash-shiny.rinterface.com</a>
</div>

.pull-right[
## Outstanding User Interfaces with Shiny

### David Granjon

* Connects important relationships between Shiny and web technologies
* Recipes for creating custom UI templates
* Uncovers the virtual JavaScript links between inputs and server sessions
]

---

## Powerful theming with {bslib}

.panelset[
.panel[.panel-name[Shiny App]
![](assets/images/hotshots.png)
]

.panel[.panel-name[Theme code]
```r
my_theme <- bs_theme(
    bg = "#0090f9", 
    fg = "#f0f0e6", 
    primary = "#71cc65", 
    base_font = font_google("Oswald", local = FALSE),
    "font-size-base" = "1.1rem"
  )
```
]

.panel[.panel-name[Within UI]
```r
fluidPage(
      theme = my_theme,
      ...
)
```
]
]

---
class: middle
background-image: url("assets/images/javascript_r.jpg")
background-position: left
background-size: 35% 90%

<div style="position:absolute;top:95%;left:10%;width:500px;height:100px;">
<a href="https://book.javascript-for-r.com">book.javascript-for-r.com</a>
</div>

.pull-right[
## Javascript for R

### John Coene
* Uncovers the engine behind HTML widgets powered by Javascript
* Comprehensive drilldowns of practical use cases inside and outside of Shiny
* Next generation of creating your own widget with [`{packer}`](https://packer.john-coene.com)
]

---

.panelset[
.panel[.panel-name[Outside]
<div>
<div style="float:left;width:46%">
<div id="htmlwidget-eb3fd67e3118188a1f20" style="width:100%;height:400px;" class="plotly html-widget"></div>
<script type="application/json" data-for="htmlwidget-eb3fd67e3118188a1f20">{"x":{"visdat":{"4a63b3f22cf":["function () ","plotlyVisDat"]},"cur_data":"4a63b3f22cf","attrs":{"4a63b3f22cf":{"x":{},"y":{},"alpha_stroke":1,"sizes":[10,100],"spans":[1,20],"text":{},"type":"scatter","mode":"text","hovertext":{},"hoverinfo":"text","size":[30],"inherit":true}},"layout":{"margin":{"b":40,"l":60,"t":25,"r":10},"yaxis":{"domain":[0,1],"automargin":true,"title":"Grand Prix Points"},"xaxis":{"domain":[0,1],"automargin":true,"title":"Number of Top 3 Finishes"},"font":{"size":16},"dragmode":"select","showlegend":false},"source":"A","config":{"modeBarButtonsToAdd":["hoverclosest","hovercompare"],"showSendToCloud":false},"highlight":{"on":"plotly_selected","off":"plotly_deselect","persistent":false,"dynamic":false,"color":null,"selectize":false,"defaultValues":null,"opacityDim":0.2,"selected":{"opacity":1},"debounce":0,"ctGroups":["SharedData1c1afb6f"]},"data":[{"x":[27,21,23,13,15,0,12,4,4,1],"y":[108,101,100,86,81,58,54,30,16,16],"text":["🏎","🚙","🚗","🚕","🚛","🚜","🚐","🚓","🛵","🚌"],"type":"scatter","mode":"text","hovertext":["rpodcast","FrenchguyCH","Wimpy","bigcalm","TwoD","madhens","bigpod","TheUnwiseGeek","crendo","popey"],"hoverinfo":["text","text","text","text","text","text","text","text","text","text"],"key":["1","2","3","4","5","6","7","8","9","10"],"set":"SharedData1c1afb6f","marker":{"color":"rgba(31,119,180,1)","size":[30,30,30,30,30,30,30,30,30,30],"sizemode":"area","line":{"color":"rgba(31,119,180,1)"}},"textfont":{"size":30},"error_y":{"color":"rgba(31,119,180,1)","width":30},"error_x":{"color":"rgba(31,119,180,1)","width":30},"line":{"color":"rgba(31,119,180,1)","width":30},"xaxis":"x","yaxis":"y","_isNestedKey":false,"frame":null}],"shinyEvents":["plotly_hover","plotly_click","plotly_selected","plotly_relayout","plotly_brushed","plotly_brushing","plotly_clickannotation","plotly_doubleclick","plotly_deselect","plotly_afterplot","plotly_sunburstclick"],"base_url":"https://plot.ly"},"evals":[],"jsHooks":[]}</script>
</div>
<div style="float:right;width:52%">
<div id="htmlwidget-2af2025eaced8262f694" class="reactable html-widget" style="width:auto;height:auto;"></div>
<script type="application/json" data-for="htmlwidget-2af2025eaced8262f694">{"x":{"tag":{"name":"Reactable","attribs":{"data":{"position_emo":["1st_place_medal","2nd_place_medal","3rd_place_medal","checkered_flag","checkered_flag","checkered_flag","checkered_flag","8ball","checkered_flag","checkered_flag"],"player_name":["rpodcast","FrenchguyCH","Wimpy","bigcalm","TwoD","madhens","bigpod","TheUnwiseGeek","crendo","popey"],"country":["us","ch","gb","gb","se","us","si","us","us","gb"],"url":["https://cdn.rawgit.com/lipis/flag-icon-css/master/flags/4x3/us.svg","https://cdn.rawgit.com/lipis/flag-icon-css/master/flags/4x3/ch.svg","https://cdn.rawgit.com/lipis/flag-icon-css/master/flags/4x3/gb.svg","https://cdn.rawgit.com/lipis/flag-icon-css/master/flags/4x3/gb.svg","https://cdn.rawgit.com/lipis/flag-icon-css/master/flags/4x3/se.svg","https://cdn.rawgit.com/lipis/flag-icon-css/master/flags/4x3/us.svg","https://cdn.rawgit.com/lipis/flag-icon-css/master/flags/4x3/si.svg","https://cdn.rawgit.com/lipis/flag-icon-css/master/flags/4x3/us.svg","https://cdn.rawgit.com/lipis/flag-icon-css/master/flags/4x3/us.svg","https://cdn.rawgit.com/lipis/flag-icon-css/master/flags/4x3/gb.svg"],"n_top3":[27,21,23,13,15,0,12,4,4,1],"total_points":[108,101,100,86,81,58,54,30,16,16],"avg_margin_victory":[0.765842149132176,0.935444434483846,0.958833336830139,"NaN",0.164333264033,"NaN","NaN",0.458000183105469,0.625,0.317000150680542],"avg_time_from_first":[1.35047499537468,2.00460000634193,2.89557502865791,4.12480002045631,4.31542500853539,8.31064003944397,4.09809526943025,3.61149993538857,3.41640005111694,1.9098749756813],"n_first_race":[19,9,6,0,3,0,0,1,1,1],"plot_emoji2":["🏎","🚙","🚗","🚕","🚛","🚜","🚐","🚓","🛵","🚌"]},"columns":[{"accessor":".selection","name":"","type":"NULL"},{"accessor":"position_emo","name":"","type":"character","cell":["🥇","🥈","🥉","🏁","🏁","🏁","🏁","🎱","🏁","🏁"],"width":30},{"accessor":"player_name","name":"Player","type":"character","width":160},{"accessor":"country","name":"country","type":"character","show":false},{"accessor":"url","name":"url","type":["glue","character"],"show":false},{"accessor":"n_top3","name":"n_top3","type":"numeric","show":false},{"accessor":"total_points","name":"Points","type":"numeric","width":100},{"accessor":"avg_margin_victory","name":"Avg Margin of Victory","type":"numeric","cell":["0.766 (19 wins)","0.935 (9 wins)","0.959 (6 wins)","No wins","0.164 (3 wins)","No wins","No wins","0.458 (1 win)","0.625 (1 win)","0.317 (1 win)"]},{"accessor":"avg_time_from_first","name":"avg_time_from_first","type":"numeric","show":false},{"accessor":"n_first_race","name":"n_first_race","type":"numeric","show":false},{"accessor":"plot_emoji2","name":"plot_emoji2","type":"character","show":false}],"defaultPageSize":10,"paginationType":"numbers","showPageInfo":true,"minRows":1,"selection":"multiple","onClick":"select","crosstalkKey":["1","2","3","4","5","6","7","8","9","10"],"crosstalkGroup":"SharedData1c1afb6f","dataKey":"91974f42ae99a8d4f44a54dcb21d6656","key":"91974f42ae99a8d4f44a54dcb21d6656"},"children":[]},"class":"reactR_markup"},"evals":[],"jsHooks":[]}</script>
</div>
</div>
]

.panel[.panel-name[Inside]

```r
library(crosstalk)
library(reactable)
library(plotly)
library(htmltools)

shared_df <- SharedData$new(df)

p1 <- create_plot(shared_df, ...)
t1 <- create_reactable(shared_df, ...)

div(
  div(p1, style="float:left;width:46%"),
  div(t1, style="float:right;width:52%")
)
```
]
]

---

## The Destination is within reach!

.pull-left[
<img src="assets/images/road_rainbow.jpg">
]

.pull-right[

* Unlike the early days, comprehensive resources are now available to bring you closer to Shiny Nirvana!
* Additional Resources
    + [shiny.rstudio.com/app-stories](https://shiny.rstudio.com/app-stories/)
    + [shinydevseries.com](https://shinydevseries.com)
    + [hosting.analythium.io](https://hosting.analythium.io/)
]