Introducción a Shiny

---

# User Interface (UI)

<br>

### ¿Por dónde empiezo mi app?

Pensar cómo lucirá nuestra app, su estructura y visualizaciones es un buen inicio. Plasmar estas ideas en un boceto nos ayudará a ordenarnos y a ordenar nuestro código.

<br>

### Componentes principales de una UI

- Framework

- Layout

- Outputs

- Inputs

- Themes

---
class: center, middle inverse

# Framework

---

# Framework

<br>

Shiny usa el marco de trabajo o *framework* llamado Bootstrap (BS), el cual constituye una colección de convenciones HTML, estilos CSS y fragmentos JS agrupados en un formato determinado enfocado en el diseño.

Conocer Bootstrap nos permite ir un poco más allá de la apariencia básica que nos ofrecen las funciones de Shiny para:

- Potenciar nuestra UI utilizando el paquete `bslib` (última versión de BS)

- Manipular las clases (CSS) para personalizar nuestros componentes

- Generar nuestras propias funciones de elementos UI

<br>

[Sitio de Bootstrap](https://getbootstrap.com/)

<br>

Existen otros *framework* como [shinydashboard](https://rstudio.github.io/shinydashboard/), [shiny.semantic](https://appsilon.github.io/shiny.semantic/), [shinymaterial](https://ericrayanderson.github.io/shinymaterial/) o [shinymobile](https://rinterface.github.io/shinyMobile/)

---

# Framework: ejemplos

<br>

.pull-left[
Bootstrap (bslib)
[<img src="recursos/bslib.png">](https://shiny.posit.co/blog/posts/bslib-dashboards/)
]

.pull-right[
Dashboard
[<img src="recursos/dashboard.png">](https://gallery.shinyapps.io/087-crandash/)
]

.pull-left[
Semantic
[<img src="recursos/semantic.png">](https://demo.prod.appsilon.ai/flights_fraud_demo/)
]

.pull-right[
Material
[<img src="recursos/material.png">](https://ericrayanderson.github.io/shinymaterial_showcase/)
]

---

# Framework

<br>

<br>

Recientemente, Shiny incorporó `bslib` en su documentación oficial por lo que muchas funciones de base fueron reemplazadas por una versión de este paquete. En este curso nos centraremos en la nueva versión, aunque en algunos casos veremos ejemplos de shiny base ya que mucho del material y el código de aplicaciones desarrolladas se mantiene con la anterior versión.

---

# Layout

---

# Layout

<br>

Podemos entender al layout como nuestra estructura de jerarquías base para la organización de la UI.

`bslib` provee funciones para construir layouts modernos:

- `page_fluid()` crea el lienzo en blanco el cual consiste en filas que incluyen columnas, formando una cuadrícula de 12 unidades de ancho. Una page_fluid escala sus componentes para que se adapten al tamaño de la pantalla. Configura el marco de trabajo que Shiny necesita para que los elementos se visualicen correctamente. Alternativas: `page_fixed()` y `page_fillable()`

- `page_sidebar()` página con barra lateral. Generalmente se ubican *inputs*.

- `page_navbar()` página con barra horizontal para navegación.

- `nav_panel()`
 - `nav_menu()`
 - `nav_item()`

- `navset_tab()`/`navset_pill()` contenedor de paneles (tabs horizontales/verticales)

- `layout_column()` controla el ancho de los componentes por fila.

---

# page_sidebar

``` r
library(bslib)

ui <- page_sidebar(
  title = "bslib app",
  sidebar = "Sidebar", 
  "Contenido"
)
```
]

.pull-right[
<body class="bslib-page-fill bslib-gap-spacing bslib-flow-mobile html-fill-container bslib-page-sidebar" style="padding:0px;gap:0px;">
<div class="navbar navbar-static-top">
<div class="container-fluid">
<h1 class="bslib-page-title navbar-brand">bslib app</h1>
</div>
</div>
<div class="bslib-sidebar-layout bslib-mb-spacing html-fill-item" data-bslib-sidebar-border="false" data-bslib-sidebar-border-radius="false" data-bslib-sidebar-init="TRUE" data-collapsible-desktop="true" data-collapsible-mobile="false" data-open-desktop="open" data-open-mobile="always" data-require-bs-caller="layout_sidebar()" data-require-bs-version="5" style="--_sidebar-width:250px;">
<div class="main bslib-gap-spacing html-fill-container">
<main class="bslib-page-main bslib-gap-spacing html-fill-item html-fill-container">Contenido</main>
</div>
<aside id="bslib-sidebar-1026" class="sidebar" hidden>
<div class="sidebar-content bslib-gap-spacing">Sidebar</div>
</aside>
<button class="collapse-toggle" type="button" title="Toggle sidebar" aria-expanded="true" aria-controls="bslib-sidebar-1026"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 16 16" class="bi bi-chevron-left collapse-icon" style="height:;width:;fill:currentColor;vertical-align:-0.125em;" aria-hidden="true" role="img" ><path fill-rule="evenodd" d="M11.354 1.646a.5.5 0 0 1 0 .708L5.707 8l5.647 5.646a.5.5 0 0 1-.708.708l-6-6a.5.5 0 0 1 0-.708l6-6a.5.5 0 0 1 .708 0z"></path></svg></button>
<script data-bslib-sidebar-init>bslib.Sidebar.initCollapsibleAll()</script>
</div>
</body>
]

---

# Secciones múltiples

<br>

Si nuestra app va a abarcar mucho contenido o temas diversos podemos utilizar un *layout* que nos permita navegar por distintas secciones y organizar nuestra UI. Cabe aclarar que **no van a ser páginas separadas, sino paneles contenidos bajo la misma URL de la app**.

``` r
ui <-page_navbar(
  title = "Navbar page",
  
  nav_panel("Panel 1", "..1"),
  nav_panel("Panel 2", "..2")
)
```
]

.pull-right[
<body class="bslib-page-fill bslib-gap-spacing bslib-flow-mobile html-fill-container bslib-page-navbar" style="padding:0px;gap:0px;">
<nav class="navbar navbar-default navbar-static-top" role="navigation" data-bs-theme="auto">
<div class="container-fluid">
<div class="navbar-header">
<button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target="#navbar-collapse-4755" data-bs-toggle="collapse" data-bs-target="#navbar-collapse-4755">
<span class="sr-only visually-hidden">Toggle navigation</span>
<span class="icon-bar"></span>
<span class="icon-bar"></span>
<span class="icon-bar"></span>
</button>
<span class="navbar-brand">Navbar page</span>
</div>
<div class="navbar-collapse collapse" id="navbar-collapse-4755">
<ul class="nav navbar-nav nav-underline" data-tabsetid="4089">
<li class="active">
<a href="#tab-4089-1" data-toggle="tab" data-bs-toggle="tab" data-value="Panel 1">Panel 1</a>
</li>
<li>
<a href="#tab-4089-2" data-toggle="tab" data-bs-toggle="tab" data-value="Panel 2">Panel 2</a>
</li>
</ul>
</div>
</div>
</nav>
<div class="container-fluid html-fill-item html-fill-container">
<div class="tab-content html-fill-item html-fill-container" data-tabsetid="4089">
<div class="tab-pane active html-fill-item html-fill-container bslib-gap-spacing" data-value="Panel 1" id="tab-4089-1" style="--bslib-navbar-margin:0;">..1</div>
<div class="tab-pane html-fill-item html-fill-container bslib-gap-spacing" data-value="Panel 2" id="tab-4089-2" style="--bslib-navbar-margin:0;">..2</div>
</div>
</div>
</body>
]

---

``` r
ui <- page_navbar(
  title = "Navbar page",
  sidebar = "Sidebar",
  
  nav_panel("Panel 1", "..1"),
  nav_menu("Panel 2", 
           nav_panel("Menú 1", "Contenido del menú 1"),
           nav_panel("Menú 2", "Contenido del menú 2")
           )
)
```

<body class="bslib-page-fill bslib-gap-spacing bslib-flow-mobile html-fill-container bslib-page-navbar has-page-sidebar" style="padding:0px;gap:0px;">
<nav class="navbar navbar-default navbar-static-top" role="navigation" data-bs-theme="auto">
<div class="container-fluid">
<div class="navbar-header">
<button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target="#navbar-collapse-5440" data-bs-toggle="collapse" data-bs-target="#navbar-collapse-5440">
<span class="sr-only visually-hidden">Toggle navigation</span>
<span class="icon-bar"></span>
<span class="icon-bar"></span>
<span class="icon-bar"></span>
</button>
<span class="navbar-brand">Navbar page</span>
</div>
<div class="navbar-collapse collapse" id="navbar-collapse-5440">
<ul class="nav navbar-nav nav-underline" data-tabsetid="7600">
<li class="active">
<a href="#tab-7600-1" data-toggle="tab" data-bs-toggle="tab" data-value="Panel 1">Panel 1</a>
</li>
<li class="dropdown">
<a href="#" class="dropdown-toggle" data-toggle="dropdown" data-bs-toggle="dropdown" data-value="Panel 2">
Panel 2
<b class="caret"></b>
</a>
<ul class="dropdown-menu" data-tabsetid="4879">
<li>
<a href="#tab-4879-1" data-toggle="tab" data-bs-toggle="tab" data-value="Menú 1">Menú 1</a>
</li>
<li>
<a href="#tab-4879-2" data-toggle="tab" data-bs-toggle="tab" data-value="Menú 2">Menú 2</a>
</li>
</ul>
</li>
</ul>
</div>
</div>
</nav>
<div class="html-fill-item html-fill-container">
<div class="bslib-sidebar-layout bslib-mb-spacing html-fill-item" data-bslib-sidebar-border="false" data-bslib-sidebar-border-radius="false" data-bslib-sidebar-init="TRUE" data-collapsible-desktop="true" data-collapsible-mobile="false" data-open-desktop="open" data-open-mobile="always" data-require-bs-caller="layout_sidebar()" data-require-bs-version="5" style="--_sidebar-width:250px;">
<div class="main bslib-gap-spacing html-fill-container">
<main class="bslib-page-main bslib-gap-spacing html-fill-item html-fill-container">
<div class="tab-content html-fill-item html-fill-container" data-tabsetid="7600">
<div class="tab-pane active html-fill-item html-fill-container bslib-gap-spacing" data-value="Panel 1" id="tab-7600-1" style="--bslib-navbar-margin:0;">..1</div>
<div class="tab-pane html-fill-item html-fill-container bslib-gap-spacing" data-value="Menú 1" id="tab-4879-1" style="--bslib-navbar-margin:0;">Contenido del menú 1</div>
<div class="tab-pane html-fill-item html-fill-container bslib-gap-spacing" data-value="Menú 2" id="tab-4879-2" style="--bslib-navbar-margin:0;">Contenido del menú 2</div>
</div>
</main>
</div>
<aside id="bslib-sidebar-6147" class="sidebar" hidden>
<div class="sidebar-content bslib-gap-spacing">Sidebar</div>
</aside>
<button class="collapse-toggle" type="button" title="Toggle sidebar" aria-expanded="true" aria-controls="bslib-sidebar-6147"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 16 16" class="bi bi-chevron-left collapse-icon" style="height:;width:;fill:currentColor;vertical-align:-0.125em;" aria-hidden="true" role="img" ><path fill-rule="evenodd" d="M11.354 1.646a.5.5 0 0 1 0 .708L5.707 8l5.647 5.646a.5.5 0 0 1-.708.708l-6-6a.5.5 0 0 1 0-.708l6-6a.5.5 0 0 1 .708 0z"></path></svg></button>
<script data-bslib-sidebar-init>bslib.Sidebar.initCollapsibleAll()</script>
</div>
</div>
</body>

---

``` r
ui <-page_navbar(
  title = "Navbar page",
  sidebar = "Sidebar",
  
  navset_tab(
  nav_panel("Panel 1", "..1"),
  nav_panel("Panel 2", 
            navset_card_underline(title = "Opciones de panel 2",
                                  nav_panel("A", "..2a"),
                                  nav_panel("B", "..2b")
                                  )
            )
  )
)
```

<body class="bslib-page-fill bslib-gap-spacing bslib-flow-mobile html-fill-container bslib-page-navbar has-page-sidebar" style="padding:0px;gap:0px;">
<nav class="navbar navbar-default navbar-static-top" role="navigation" data-bs-theme="auto">
<div class="container-fluid">
<div class="navbar-header">
<button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target="#navbar-collapse-1513" data-bs-toggle="collapse" data-bs-target="#navbar-collapse-1513">
<span class="sr-only visually-hidden">Toggle navigation</span>
<span class="icon-bar"></span>
<span class="icon-bar"></span>
<span class="icon-bar"></span>
</button>
<span class="navbar-brand">Navbar page</span>
</div>
<div class="navbar-collapse collapse" id="navbar-collapse-1513">
<ul class="nav navbar-nav nav-underline" data-tabsetid="1045">
<li>
<a href="#tab-1045-1" data-toggle="tab" data-bs-toggle="tab"></a>
</li>
</ul>
</div>
</div>
</nav>
<div class="html-fill-item html-fill-container">
<div class="bslib-sidebar-layout bslib-mb-spacing html-fill-item" data-bslib-sidebar-border="false" data-bslib-sidebar-border-radius="false" data-bslib-sidebar-init="TRUE" data-collapsible-desktop="true" data-collapsible-mobile="false" data-open-desktop="open" data-open-mobile="always" data-require-bs-caller="layout_sidebar()" data-require-bs-version="5" style="--_sidebar-width:250px;">
<div class="main bslib-gap-spacing html-fill-container">
<main class="bslib-page-main bslib-gap-spacing html-fill-item html-fill-container">
<div class="tab-content html-fill-item html-fill-container" data-tabsetid="1045">
<div class="tabbable" id="tab-1045-1">
<ul class="nav nav-tabs" data-tabsetid="8282">
<li class="active">
<a href="#tab-8282-1" data-toggle="tab" data-bs-toggle="tab" data-value="Panel 1">Panel 1</a>
</li>
<li>
<a href="#tab-8282-2" data-toggle="tab" data-bs-toggle="tab" data-value="Panel 2">Panel 2</a>
</li>
</ul>
<div class="tab-content" data-tabsetid="8282">
<div class="tab-pane active html-fill-item html-fill-container bslib-gap-spacing" data-value="Panel 1" id="tab-8282-1" style="--bslib-navbar-margin:0;">..1</div>
<div class="tab-pane html-fill-item html-fill-container bslib-gap-spacing" data-value="Panel 2" id="tab-8282-2" style="--bslib-navbar-margin:0;">
<div class="card bslib-card bslib-mb-spacing html-fill-item html-fill-container" data-bslib-card-init data-require-bs-caller="card()" data-require-bs-version="5">
<div class="card-header bslib-navs-card-title">
<span>Opciones de panel 2</span>
<ul class="nav nav-underline" data-tabsetid="4189">
<li class="active">
<a href="#tab-4189-1" data-toggle="tab" data-bs-toggle="tab" data-value="A">A</a>
</li>
<li>
<a href="#tab-4189-2" data-toggle="tab" data-bs-toggle="tab" data-value="B">B</a>
</li>
</ul>
</div>
<div class="tab-content html-fill-item html-fill-container" data-tabsetid="4189">
<div class="tab-pane active html-fill-item html-fill-container bslib-gap-spacing html-fill-item html-fill-container bslib-gap-spacing" data-value="A" id="tab-4189-1" style="gap:0;padding:0; --bslib-navbar-margin:0;">
<div class="card-body bslib-gap-spacing html-fill-item html-fill-container" style="margin-top:auto;margin-bottom:auto;flex:1 1 auto;">..2a</div>
</div>
<div class="tab-pane html-fill-item html-fill-container bslib-gap-spacing html-fill-item html-fill-container bslib-gap-spacing" data-value="B" id="tab-4189-2" style="gap:0;padding:0; --bslib-navbar-margin:0;">
<div class="card-body bslib-gap-spacing html-fill-item html-fill-container" style="margin-top:auto;margin-bottom:auto;flex:1 1 auto;">..2b</div>
</div>
</div>
<script data-bslib-card-init>bslib.Card.initializeAllCards();</script>
</div>
</div>
</div>
</div>
</div>
</main>
</div>
<aside id="bslib-sidebar-4541" class="sidebar" hidden>
<div class="sidebar-content bslib-gap-spacing">Sidebar</div>
</aside>
<button class="collapse-toggle" type="button" title="Toggle sidebar" aria-expanded="true" aria-controls="bslib-sidebar-4541"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 16 16" class="bi bi-chevron-left collapse-icon" style="height:;width:;fill:currentColor;vertical-align:-0.125em;" aria-hidden="true" role="img" ><path fill-rule="evenodd" d="M11.354 1.646a.5.5 0 0 1 0 .708L5.707 8l5.647 5.646a.5.5 0 0 1-.708.708l-6-6a.5.5 0 0 1 0-.708l6-6a.5.5 0 0 1 .708 0z"></path></svg></button>
<script data-bslib-sidebar-init>bslib.Sidebar.initCollapsibleAll()</script>
</div>
</div>
</body>

---
# Layout con `bslib`

<br>

Además de un aspecto más moderno, `bslib` incorpora algunos elementos interesantes para construir layouts que no eran tan accesibles con Shiny base como:

- `cards`

<div class="card bslib-card bslib-mb-spacing html-fill-item html-fill-container" data-bslib-card-init data-require-bs-caller="card()" data-require-bs-version="5">
<div class="card-header">Título</div>
<div class="card-body bslib-gap-spacing html-fill-item html-fill-container" style="margin-top:auto;margin-bottom:auto;flex:1 1 auto;">Contenido</div>
<script data-bslib-card-init>bslib.Card.initializeAllCards();</script>
</div>

- `valueBox`

<div class="card bslib-card bslib-mb-spacing html-fill-item html-fill-container bslib-value-box default showcase-left-center" data-bslib-card-init data-require-bs-caller="card() value_box()" data-require-bs-version="5 5">
<div class="card-body bslib-gap-spacing html-fill-item html-fill-container" style="margin-top:auto;margin-bottom:auto;flex:1 1 auto; padding:0;">
<div class="value-box-grid html-fill-item" style="--bslib-grid-height:auto;--bslib-grid-height-mobile:auto;---bslib-value-box-showcase-w:30%;---bslib-value-box-showcase-w-fs:1fr;---bslib-value-box-showcase-max-h:100px;---bslib-value-box-showcase-max-h-fs:67%;">
<div class="value-box-showcase html-fill-item html-fill-container"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 16 16" class="bi bi-geo " style="height:1em;width:1em;fill:currentColor;vertical-align:-0.125em;" aria-hidden="true" role="img" ><path fill-rule="evenodd" d="M8 1a3 3 0 1 0 0 6 3 3 0 0 0 0-6zM4 4a4 4 0 1 1 4.5 3.969V13.5a.5.5 0 0 1-1 0V7.97A4 4 0 0 1 4 3.999zm2.493 8.574a.5.5 0 0 1-.411.575c-.712.118-1.28.295-1.655.493a1.319 1.319 0 0 0-.37.265.301.301 0 0 0-.057.09V14l.002.008a.147.147 0 0 0 .016.033.617.617 0 0 0 .145.15c.165.13.435.27.813.395.751.25 1.82.414 3.024.414s2.273-.163 3.024-.414c.378-.126.648-.265.813-.395a.619.619 0 0 0 .146-.15.148.148 0 0 0 .015-.033L12 14v-.004a.301.301 0 0 0-.057-.09 1.318 1.318 0 0 0-.37-.264c-.376-.198-.943-.375-1.655-.493a.5.5 0 1 1 .164-.986c.77.127 1.452.328 1.957.594C12.5 13 13 13.4 13 14c0 .426-.26.752-.544.977-.29.228-.68.413-1.116.558-.878.293-2.059.465-3.34.465-1.281 0-2.462-.172-3.34-.465-.436-.145-.826-.33-1.116-.558C3.26 14.752 3 14.426 3 14c0-.599.5-1 .961-1.243.505-.266 1.187-.467 1.957-.594a.5.5 0 0 1 .575.411z"></path></svg></div>
<div class="value-box-area html-fill-item html-fill-container">
<p class="value-box-title">Título</p>
<p class="value-box-value">99%</p>
Interesante
</div>
</div>
</div>
<script data-bslib-card-init>bslib.Card.initializeAllCards();</script>
</div>

---

# Layout con `bslib`

<br>

- `accordion`

<div id="bslib-accordion-9277" class="accordion" data-require-bs-version="5" data-require-bs-caller="accordion()">
<div class="accordion-item" data-value="Controles A">
<div class="accordion-header">
<button class="accordion-button" type="button" data-bs-toggle="collapse" data-bs-target="#bslib-accordion-panel-6102" aria-controls="bslib-accordion-panel-6102" aria-expanded="true">
<div class="accordion-icon"></div>
<div class="accordion-title">Controles A</div>
</button>
</div>
<div id="bslib-accordion-panel-6102" class="accordion-collapse collapse show">
<div class="accordion-body">Contenido</div>
</div>
</div>
<div class="accordion-item" data-value="Controles B">
<div class="accordion-header">
<button class="accordion-button collapsed" type="button" data-bs-toggle="collapse" data-bs-target="#bslib-accordion-panel-3153" aria-expanded="false" aria-controls="bslib-accordion-panel-3153">
<div class="accordion-icon"></div>
<div class="accordion-title">Controles B</div>
</button>
</div>
<div id="bslib-accordion-panel-3153" class="accordion-collapse collapse">
<div class="accordion-body">Contenido</div>
</div>
</div>
</div>

---

# layout_columns

<br>

``` r
ui <-page_fluid(
  title = "Página A",
  
  layout_columns(
    
    value_box(
      title = "Value 1",
      value = "99%",
      showcase = bs_icon(name = "geo"),
      "Interesante"
    ),
    
    
    value_box(
      title = "Value 2",
      value = "12%",
      showcase = bs_icon(name = "geo"),
      "No tan interesante"
    )
  )
)
```

---

<br>

<div class="container-fluid">
<bslib-layout-columns class="bslib-grid grid bslib-mb-spacing html-fill-item" data-require-bs-caller="layout_columns()" data-require-bs-version="5">
<div class="bslib-grid-item bslib-gap-spacing html-fill-container">
<div class="card bslib-card bslib-mb-spacing html-fill-item html-fill-container bslib-value-box default showcase-left-center" data-bslib-card-init data-require-bs-caller="card() value_box()" data-require-bs-version="5 5">
<div class="card-body bslib-gap-spacing html-fill-item html-fill-container" style="margin-top:auto;margin-bottom:auto;flex:1 1 auto; padding:0;">
<div class="value-box-grid html-fill-item" style="--bslib-grid-height:auto;--bslib-grid-height-mobile:auto;---bslib-value-box-showcase-w:30%;---bslib-value-box-showcase-w-fs:1fr;---bslib-value-box-showcase-max-h:100px;---bslib-value-box-showcase-max-h-fs:67%;">
<div class="value-box-showcase html-fill-item html-fill-container"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 16 16" class="bi bi-geo " style="height:1em;width:1em;fill:currentColor;vertical-align:-0.125em;" aria-hidden="true" role="img" ><path fill-rule="evenodd" d="M8 1a3 3 0 1 0 0 6 3 3 0 0 0 0-6zM4 4a4 4 0 1 1 4.5 3.969V13.5a.5.5 0 0 1-1 0V7.97A4 4 0 0 1 4 3.999zm2.493 8.574a.5.5 0 0 1-.411.575c-.712.118-1.28.295-1.655.493a1.319 1.319 0 0 0-.37.265.301.301 0 0 0-.057.09V14l.002.008a.147.147 0 0 0 .016.033.617.617 0 0 0 .145.15c.165.13.435.27.813.395.751.25 1.82.414 3.024.414s2.273-.163 3.024-.414c.378-.126.648-.265.813-.395a.619.619 0 0 0 .146-.15.148.148 0 0 0 .015-.033L12 14v-.004a.301.301 0 0 0-.057-.09 1.318 1.318 0 0 0-.37-.264c-.376-.198-.943-.375-1.655-.493a.5.5 0 1 1 .164-.986c.77.127 1.452.328 1.957.594C12.5 13 13 13.4 13 14c0 .426-.26.752-.544.977-.29.228-.68.413-1.116.558-.878.293-2.059.465-3.34.465-1.281 0-2.462-.172-3.34-.465-.436-.145-.826-.33-1.116-.558C3.26 14.752 3 14.426 3 14c0-.599.5-1 .961-1.243.505-.266 1.187-.467 1.957-.594a.5.5 0 0 1 .575.411z"></path></svg></div>
<div class="value-box-area html-fill-item html-fill-container">
<p class="value-box-title">Value 1</p>
<p class="value-box-value">99%</p>
Interesante
</div>
</div>
</div>
<script data-bslib-card-init>bslib.Card.initializeAllCards();</script>
</div>
</div>
<div class="bslib-grid-item bslib-gap-spacing html-fill-container">
<div class="card bslib-card bslib-mb-spacing html-fill-item html-fill-container bslib-value-box default showcase-left-center" data-bslib-card-init data-require-bs-caller="card() value_box()" data-require-bs-version="5 5">
<div class="card-body bslib-gap-spacing html-fill-item html-fill-container" style="margin-top:auto;margin-bottom:auto;flex:1 1 auto; padding:0;">
<div class="value-box-grid html-fill-item" style="--bslib-grid-height:auto;--bslib-grid-height-mobile:auto;---bslib-value-box-showcase-w:30%;---bslib-value-box-showcase-w-fs:1fr;---bslib-value-box-showcase-max-h:100px;---bslib-value-box-showcase-max-h-fs:67%;">
<div class="value-box-showcase html-fill-item html-fill-container"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 16 16" class="bi bi-geo " style="height:1em;width:1em;fill:currentColor;vertical-align:-0.125em;" aria-hidden="true" role="img" ><path fill-rule="evenodd" d="M8 1a3 3 0 1 0 0 6 3 3 0 0 0 0-6zM4 4a4 4 0 1 1 4.5 3.969V13.5a.5.5 0 0 1-1 0V7.97A4 4 0 0 1 4 3.999zm2.493 8.574a.5.5 0 0 1-.411.575c-.712.118-1.28.295-1.655.493a1.319 1.319 0 0 0-.37.265.301.301 0 0 0-.057.09V14l.002.008a.147.147 0 0 0 .016.033.617.617 0 0 0 .145.15c.165.13.435.27.813.395.751.25 1.82.414 3.024.414s2.273-.163 3.024-.414c.378-.126.648-.265.813-.395a.619.619 0 0 0 .146-.15.148.148 0 0 0 .015-.033L12 14v-.004a.301.301 0 0 0-.057-.09 1.318 1.318 0 0 0-.37-.264c-.376-.198-.943-.375-1.655-.493a.5.5 0 1 1 .164-.986c.77.127 1.452.328 1.957.594C12.5 13 13 13.4 13 14c0 .426-.26.752-.544.977-.29.228-.68.413-1.116.558-.878.293-2.059.465-3.34.465-1.281 0-2.462-.172-3.34-.465-.436-.145-.826-.33-1.116-.558C3.26 14.752 3 14.426 3 14c0-.599.5-1 .961-1.243.505-.266 1.187-.467 1.957-.594a.5.5 0 0 1 .575.411z"></path></svg></div>
<div class="value-box-area html-fill-item html-fill-container">
<p class="value-box-title">Value 2</p>
<p class="value-box-value">12%</p>
No tan interesante
</div>
</div>
</div>
<script data-bslib-card-init>bslib.Card.initializeAllCards();</script>
</div>
</div>
</bslib-layout-columns>
</div>

---

<br>

``` r
ui <-page_fluid(
  title = "Página A",
  
  layout_columns(col_widths = c(4, 8),
    
    value_box(
      title = "Value 1",
      value = "99%",
      showcase = bs_icon(name = "geo"),
      "Interesante"
    ),
    
    
    value_box(
      title = "Value 2",
      value = "12%",
      showcase = bs_icon(name = "geo"),
      "No tan interesante"
    )
  )
)
```

---
<br>

<div class="container-fluid">
<bslib-layout-columns class="bslib-grid grid bslib-mb-spacing html-fill-item" col-widths-sm="4,8" data-require-bs-caller="layout_columns()" data-require-bs-version="5">
<div class="bslib-grid-item bslib-gap-spacing html-fill-container">
<div class="card bslib-card bslib-mb-spacing html-fill-item html-fill-container bslib-value-box default showcase-left-center" data-bslib-card-init data-require-bs-caller="card() value_box()" data-require-bs-version="5 5">
<div class="card-body bslib-gap-spacing html-fill-item html-fill-container" style="margin-top:auto;margin-bottom:auto;flex:1 1 auto; padding:0;">
<div class="value-box-grid html-fill-item" style="--bslib-grid-height:auto;--bslib-grid-height-mobile:auto;---bslib-value-box-showcase-w:30%;---bslib-value-box-showcase-w-fs:1fr;---bslib-value-box-showcase-max-h:100px;---bslib-value-box-showcase-max-h-fs:67%;">
<div class="value-box-showcase html-fill-item html-fill-container"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 16 16" class="bi bi-geo " style="height:1em;width:1em;fill:currentColor;vertical-align:-0.125em;" aria-hidden="true" role="img" ><path fill-rule="evenodd" d="M8 1a3 3 0 1 0 0 6 3 3 0 0 0 0-6zM4 4a4 4 0 1 1 4.5 3.969V13.5a.5.5 0 0 1-1 0V7.97A4 4 0 0 1 4 3.999zm2.493 8.574a.5.5 0 0 1-.411.575c-.712.118-1.28.295-1.655.493a1.319 1.319 0 0 0-.37.265.301.301 0 0 0-.057.09V14l.002.008a.147.147 0 0 0 .016.033.617.617 0 0 0 .145.15c.165.13.435.27.813.395.751.25 1.82.414 3.024.414s2.273-.163 3.024-.414c.378-.126.648-.265.813-.395a.619.619 0 0 0 .146-.15.148.148 0 0 0 .015-.033L12 14v-.004a.301.301 0 0 0-.057-.09 1.318 1.318 0 0 0-.37-.264c-.376-.198-.943-.375-1.655-.493a.5.5 0 1 1 .164-.986c.77.127 1.452.328 1.957.594C12.5 13 13 13.4 13 14c0 .426-.26.752-.544.977-.29.228-.68.413-1.116.558-.878.293-2.059.465-3.34.465-1.281 0-2.462-.172-3.34-.465-.436-.145-.826-.33-1.116-.558C3.26 14.752 3 14.426 3 14c0-.599.5-1 .961-1.243.505-.266 1.187-.467 1.957-.594a.5.5 0 0 1 .575.411z"></path></svg></div>
<div class="value-box-area html-fill-item html-fill-container">
<p class="value-box-title">Value 1</p>
<p class="value-box-value">99%</p>
Interesante
</div>
</div>
</div>
<script data-bslib-card-init>bslib.Card.initializeAllCards();</script>
</div>
</div>
<div class="bslib-grid-item bslib-gap-spacing html-fill-container">
<div class="card bslib-card bslib-mb-spacing html-fill-item html-fill-container bslib-value-box default showcase-left-center" data-bslib-card-init data-require-bs-caller="card() value_box()" data-require-bs-version="5 5">
<div class="card-body bslib-gap-spacing html-fill-item html-fill-container" style="margin-top:auto;margin-bottom:auto;flex:1 1 auto; padding:0;">
<div class="value-box-grid html-fill-item" style="--bslib-grid-height:auto;--bslib-grid-height-mobile:auto;---bslib-value-box-showcase-w:30%;---bslib-value-box-showcase-w-fs:1fr;---bslib-value-box-showcase-max-h:100px;---bslib-value-box-showcase-max-h-fs:67%;">
<div class="value-box-showcase html-fill-item html-fill-container"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 16 16" class="bi bi-geo " style="height:1em;width:1em;fill:currentColor;vertical-align:-0.125em;" aria-hidden="true" role="img" ><path fill-rule="evenodd" d="M8 1a3 3 0 1 0 0 6 3 3 0 0 0 0-6zM4 4a4 4 0 1 1 4.5 3.969V13.5a.5.5 0 0 1-1 0V7.97A4 4 0 0 1 4 3.999zm2.493 8.574a.5.5 0 0 1-.411.575c-.712.118-1.28.295-1.655.493a1.319 1.319 0 0 0-.37.265.301.301 0 0 0-.057.09V14l.002.008a.147.147 0 0 0 .016.033.617.617 0 0 0 .145.15c.165.13.435.27.813.395.751.25 1.82.414 3.024.414s2.273-.163 3.024-.414c.378-.126.648-.265.813-.395a.619.619 0 0 0 .146-.15.148.148 0 0 0 .015-.033L12 14v-.004a.301.301 0 0 0-.057-.09 1.318 1.318 0 0 0-.37-.264c-.376-.198-.943-.375-1.655-.493a.5.5 0 1 1 .164-.986c.77.127 1.452.328 1.957.594C12.5 13 13 13.4 13 14c0 .426-.26.752-.544.977-.29.228-.68.413-1.116.558-.878.293-2.059.465-3.34.465-1.281 0-2.462-.172-3.34-.465-.436-.145-.826-.33-1.116-.558C3.26 14.752 3 14.426 3 14c0-.599.5-1 .961-1.243.505-.266 1.187-.467 1.957-.594a.5.5 0 0 1 .575.411z"></path></svg></div>
<div class="value-box-area html-fill-item html-fill-container">
<p class="value-box-title">Value 2</p>
<p class="value-box-value">12%</p>
No tan interesante
</div>
</div>
</div>
<script data-bslib-card-init>bslib.Card.initializeAllCards();</script>
</div>
</div>
</bslib-layout-columns>
</div>

---

# Layout con Shiny base:

<br>

- `fluidPage()`

- `titlePanel()` define un título para la página.

- `sidebarLayout()` crea una página con una barra lateral y un panel principal:

- `sidebarPanel()` barra lateral. Generalmente se ubican *inputs*.

- `mainPanel()` panel principal. Generalmente se ubican *outputs*.

- `fluidRow()` controla la organización de los componentes por fila.

- `column()` controla el ancho de los componentes por fila.

---

# Página con barra lateral

<br>

.pull-left[
```
fluidPage(
  titlePanel(
    "Mi título"
  ),
  sidebarLayout(
    sidebarPanel(
      # inputs
    ),
    mainPanel(
      # outputs
    )
  )
)
```
]

.pull-right[
![](recursos/sidebar.png)
Fuente: https://mastering-shiny.org/action-layout.html#page-with-sidebar
]

---

# Página con filas y columnas

<br>

.pull-left[
```
fluidPage(
 
 fluidRow(
 
  column(4, ...), 
  column(8, ...)
  
 ),
 
 fluidRow(
 
  column(6, ...), 
  column(6, ...)
 )
 
)
```
]

.pull-right[
![](recursos/multirow.png)
Fuente: https://mastering-shiny.org/action-layout.html#multi-row
]

---

# Secciones múltiples

<br>

Las opciones de base son:

- `tabsetPanel()` 
 - horizontal

- `navlistPanel()` 
 - vertical

- `navbarPage()` 
 - horizontal
 - alternativa a `fluidPage()`

<br>

Las cuales combinamos con:

- `tabPanel()`
- `navbarMenu()`

---

# tabsetPanel

``` r
library(shiny)

ui <- fluidPage(
  
  tabsetPanel(
    tabPanel("tab 1", "..1"),
    tabPanel("tab 2", "..2")
  )
)
```
]

.pull-right[
<div class="container-fluid">
<div class="tabbable">
<ul class="nav nav-tabs" data-tabsetid="2553">
<li class="active">
<a href="#tab-2553-1" data-toggle="tab" data-bs-toggle="tab" data-value="tab 1">tab 1</a>
</li>
<li>
<a href="#tab-2553-2" data-toggle="tab" data-bs-toggle="tab" data-value="tab 2">tab 2</a>
</li>
</ul>
<div class="tab-content" data-tabsetid="2553">
<div class="tab-pane active" data-value="tab 1" id="tab-2553-1">..1</div>
<div class="tab-pane" data-value="tab 2" id="tab-2553-2">..2</div>
</div>
</div>
</div>
]

``` r
ui <- fluidPage(
  
  sidebarLayout(
    sidebarPanel("Barra"),
    mainPanel(
      tabsetPanel(
        tabPanel("tab 1", "1"),
        tabPanel("tab 2", "2"))
    )
  )
)
```
]

.pull-right[
<div class="container-fluid">
<div class="row">
<div class="col-sm-4">
<form class="well" role="complementary">Barra</form>
</div>
<div class="col-sm-8" role="main">
<div class="tabbable">
<ul class="nav nav-tabs" data-tabsetid="5262">
<li class="active">
<a href="#tab-5262-1" data-toggle="tab" data-bs-toggle="tab" data-value="tab 1">tab 1</a>
</li>
<li>
<a href="#tab-5262-2" data-toggle="tab" data-bs-toggle="tab" data-value="tab 2">tab 2</a>
</li>
</ul>
<div class="tab-content" data-tabsetid="5262">
<div class="tab-pane active" data-value="tab 1" id="tab-5262-1">1</div>
<div class="tab-pane" data-value="tab 2" id="tab-5262-2">2</div>
</div>
</div>
</div>
</div>
</div>
]

---

# navlistPanel

<br>

``` r
ui <- fluidPage(
  
  navlistPanel(
    tabPanel("tab 1", "..1"),
    tabPanel("tab 2", "..2")
  )
)
```
]

.pull-right[
<div class="container-fluid">
<div class="row">
<div class="col-sm-4 well">
<ul class="nav nav-pills nav-stacked" data-tabsetid="2274">
<li class="active">
<a href="#tab-2274-1" data-toggle="tab" data-bs-toggle="tab" data-value="tab 1">tab 1</a>
</li>
<li>
<a href="#tab-2274-2" data-toggle="tab" data-bs-toggle="tab" data-value="tab 2">tab 2</a>
</li>
</ul>
</div>
<div class="col-sm-8">
<div class="tab-content" data-tabsetid="2274">
<div class="tab-pane active" data-value="tab 1" id="tab-2274-1">..1</div>
<div class="tab-pane" data-value="tab 2" id="tab-2274-2">..2</div>
</div>
</div>
</div>
</div>
]

---

# navbarPage

<br>

``` r
ui <- navbarPage(
  title = "Título",
  
  tabPanel("tab 1", "..1"),
  tabPanel("tab 2", "..2"),
  
  navbarMenu(
    title = "Otros",
    tabPanel("tab 3", "..3")
  )
  
)
```
]

.pull-right[
<body class="bslib-page-navbar">
<nav class="navbar navbar-default navbar-static-top" role="navigation" data-bs-theme="light">
<div class="container-fluid">
<div class="navbar-header">
<span class="navbar-brand">Título</span>
</div>
<ul class="nav navbar-nav nav-underline" data-tabsetid="2460">
<li class="active">
<a href="#tab-2460-1" data-toggle="tab" data-bs-toggle="tab" data-value="tab 1">tab 1</a>
</li>
<li>
<a href="#tab-2460-2" data-toggle="tab" data-bs-toggle="tab" data-value="tab 2">tab 2</a>
</li>
<li class="dropdown">
<a href="#" class="dropdown-toggle" data-toggle="dropdown" data-bs-toggle="dropdown" data-value="Otros">
Otros
<b class="caret"></b>
</a>
<ul class="dropdown-menu" data-tabsetid="2919">
<li>
<a href="#tab-2919-1" data-toggle="tab" data-bs-toggle="tab" data-value="tab 3">tab 3</a>
</li>
</ul>
</li>
</ul>
</div>
</nav>
<div class="container-fluid">
<div class="tab-content" data-tabsetid="2460">
<div class="tab-pane active" data-value="tab 1" id="tab-2460-1">..1</div>
<div class="tab-pane" data-value="tab 2" id="tab-2460-2">..2</div>
<div class="tab-pane" data-value="tab 3" id="tab-2919-1">..3</div>
</div>
</div>
</body>
]

---

# Ejercicios

<br>

Replique los siguientes *layouts*:

<br>

<body class="bslib-page-fill bslib-gap-spacing bslib-flow-mobile html-fill-container bslib-page-navbar" style="padding:0px;gap:0px;">
<nav class="navbar navbar-default navbar-static-top" role="navigation" data-bs-theme="auto">
<div class="container-fluid">
<div class="navbar-header">
<button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target="#navbar-collapse-3705" data-bs-toggle="collapse" data-bs-target="#navbar-collapse-3705">
<span class="sr-only visually-hidden">Toggle navigation</span>
<span class="icon-bar"></span>
<span class="icon-bar"></span>
<span class="icon-bar"></span>
</button>
<span class="navbar-brand">App increíble</span>
</div>
<div class="navbar-collapse collapse" id="navbar-collapse-3705">
<ul class="nav navbar-nav nav-underline" data-tabsetid="7845">
<li class="active">
<a href="#tab-7845-1" data-toggle="tab" data-bs-toggle="tab" data-value="Datos increíbles">Datos increíbles</a>
</li>
<li class="dropdown">
<a href="#" class="dropdown-toggle" data-toggle="dropdown" data-bs-toggle="dropdown" data-value="Más">
Más
<b class="caret"></b>
</a>
<ul class="dropdown-menu" data-tabsetid="3070">
<li>
<a href="#tab-3070-1" data-toggle="tab" data-bs-toggle="tab" data-value="Metodología">Metodología</a>
</li>
<li>
<a href="#tab-3070-2" data-toggle="tab" data-bs-toggle="tab" data-value="Contacto">Contacto</a>
</li>
</ul>
</li>
</ul>
</div>
</div>
</nav>
<div class="container-fluid html-fill-item html-fill-container">
<div class="tab-content html-fill-item html-fill-container" data-tabsetid="7845">
<div class="tab-pane active html-fill-item html-fill-container bslib-gap-spacing" data-value="Datos increíbles" id="tab-7845-1" style="--bslib-navbar-margin:0;">
<div class="tabbable">
<ul class="nav nav-tabs" data-tabsetid="3013">
<li class="active">
<a href="#tab-3013-1" data-toggle="tab" data-bs-toggle="tab" data-value="Datos A">Datos A</a>
</li>
<li>
<a href="#tab-3013-2" data-toggle="tab" data-bs-toggle="tab" data-value="Datos B">Datos B</a>
</li>
</ul>
<div class="tab-content" data-tabsetid="3013">
<div class="tab-pane active html-fill-item html-fill-container bslib-gap-spacing" data-value="Datos A" id="tab-3013-1" style="--bslib-navbar-margin:0;">Acá van datos increíbles</div>
<div class="tab-pane html-fill-item html-fill-container bslib-gap-spacing" data-value="Datos B" id="tab-3013-2" style="--bslib-navbar-margin:0;">Acá van más datos increíbles</div>
</div>
</div>
</div>
<div class="tab-pane html-fill-item html-fill-container bslib-gap-spacing" data-value="Metodología" id="tab-3070-1" style="--bslib-navbar-margin:0;">Texto con la metodología increíble</div>
<div class="tab-pane html-fill-item html-fill-container bslib-gap-spacing" data-value="Contacto" id="tab-3070-2" style="--bslib-navbar-margin:0;">Contacto de la persona increíble que desarrolló esta app</div>
</div>
</div>
</body>

---

<body class="bslib-page-fill bslib-gap-spacing bslib-flow-mobile html-fill-container bslib-page-sidebar" style="padding:0px;gap:0px;">
<div class="navbar navbar-static-top">
<div class="container-fluid">
<h1 class="bslib-page-title navbar-brand">Página sidebar</h1>
</div>
</div>
<div class="bslib-sidebar-layout bslib-mb-spacing html-fill-item" data-bslib-sidebar-border="false" data-bslib-sidebar-border-radius="false" data-bslib-sidebar-init="TRUE" data-collapsible-desktop="true" data-collapsible-mobile="false" data-open-desktop="open" data-open-mobile="always" data-require-bs-caller="layout_sidebar()" data-require-bs-version="5" style="--_sidebar-width:250px;">
<div class="main bslib-gap-spacing html-fill-container">
<main class="bslib-page-main bslib-gap-spacing html-fill-item html-fill-container">
<bslib-layout-columns class="bslib-grid grid bslib-mb-spacing html-fill-item" data-require-bs-caller="layout_columns()" data-require-bs-version="5">
<div class="bslib-grid-item bslib-gap-spacing html-fill-container">
<div id="bslib-accordion-1955" class="accordion" data-require-bs-version="5" data-require-bs-caller="accordion()">
<div class="accordion-item" data-value="Info">
<div class="accordion-header">
<button class="accordion-button" type="button" data-bs-toggle="collapse" data-bs-target="#bslib-accordion-panel-3254" aria-controls="bslib-accordion-panel-3254" aria-expanded="true">
<div class="accordion-icon"></div>
<div class="accordion-title">Info</div>
</button>
</div>
<div id="bslib-accordion-panel-3254" class="accordion-collapse collapse show">
<div class="accordion-body">Contenido</div>
</div>
</div>
<div class="accordion-item" data-value="Links">
<div class="accordion-header">
<button class="accordion-button collapsed" type="button" data-bs-toggle="collapse" data-bs-target="#bslib-accordion-panel-7146" aria-expanded="false" aria-controls="bslib-accordion-panel-7146">
<div class="accordion-icon"></div>
<div class="accordion-title">Links</div>
</button>
</div>
<div id="bslib-accordion-panel-7146" class="accordion-collapse collapse">
<div class="accordion-body">Contenido</div>
</div>
</div>
</div>
</div>
<div class="bslib-grid-item bslib-gap-spacing html-fill-container">
<div class="card bslib-card bslib-mb-spacing html-fill-item html-fill-container bslib-value-box default" data-bslib-card-init data-require-bs-caller="card() value_box()" data-require-bs-version="5 5">
<div class="card-body bslib-gap-spacing html-fill-item html-fill-container" style="margin-top:auto;margin-bottom:auto;flex:1 1 auto;">
<div class="value-box-area html-fill-item html-fill-container">
<p class="value-box-title">Valor</p>
<p class="value-box-value">123</p>
Muy bueno
</div>
</div>
<script data-bslib-card-init>bslib.Card.initializeAllCards();</script>
</div>
</div>
</bslib-layout-columns>
</main>
</div>
<aside id="bslib-sidebar-2506" class="sidebar" hidden>
<div class="sidebar-content bslib-gap-spacing">Barra con inputs</div>
</aside>
<button class="collapse-toggle" type="button" title="Toggle sidebar" aria-expanded="true" aria-controls="bslib-sidebar-2506"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 16 16" class="bi bi-chevron-left collapse-icon" style="height:;width:;fill:currentColor;vertical-align:-0.125em;" aria-hidden="true" role="img" ><path fill-rule="evenodd" d="M11.354 1.646a.5.5 0 0 1 0 .708L5.707 8l5.647 5.646a.5.5 0 0 1-.708.708l-6-6a.5.5 0 0 1 0-.708l6-6a.5.5 0 0 1 .708 0z"></path></svg></button>
<script data-bslib-sidebar-init>bslib.Sidebar.initCollapsibleAll()</script>
</div>
</body>

---

Shiny base

<div class="container-fluid">
<h2>App muy interesante</h2>
<div class="row">
<div class="col-sm-4 well">
<ul class="nav nav-pills nav-stacked" data-tabsetid="6191">
<li class="active">
<a href="#tab-6191-1" data-toggle="tab" data-bs-toggle="tab" data-value="Panel con datos interesantes">Panel con datos interesantes</a>
</li>
<li>
<a href="#tab-6191-2" data-toggle="tab" data-bs-toggle="tab" data-value="Panel con texto aburrido">Panel con texto aburrido</a>
</li>
</ul>
</div>
<div class="col-sm-8">
<div class="tab-content" data-tabsetid="6191">
<div class="tab-pane active" data-value="Panel con datos interesantes" id="tab-6191-1">
<div class="row">
<div class="col-sm-4">
<form class="well" role="complementary">Inputs para filtrar datos</form>
</div>
<div class="col-sm-8" role="main">Datos interesantes</div>
</div>
</div>
<div class="tab-pane" data-value="Panel con texto aburrido" id="tab-6191-2">Texto aburrido</div>
</div>
</div>
</div>
</div>

---

# Outputs

---

# Outputs

<br>

Son las salidas que generamos con información para el usuario, principalmente las visualizaciones.

En la UI debemos definir no sólo dónde estarán ubicados estos outputs sino también de qué tipo serán (textos, gráficos, tablas, imágenes, etc). Luego, el código que genera la visualización lo escribiremos en el server u otro script.

Fuente: https://shiny.posit.co/r/getstarted/shiny-basics/lesson4/

---

# Outputs

<br>

Shiny nos provee de algunos outputs típicos pero, ¿qué sucede si quiero usar una visualización de un paquete específico?

Por ejemplo, supongamos que quiero mostrar gráficos interactivos usando `plotly`. La mayoría de las librerías vienen con una función de output específica, compatible con Shiny. En este caso: `plotly::plotlyOutput()`.

<br>

Así tenemos más ejemplos como:

- `highcharter::highchartOutput()`

- `gt::gt_output()`

- `reactable::reactableOutput()`

- `leaflet::leafletOutput()`

- etc.

---

# Outputs

<br>

Para definir un output en nuestra UI debemos escribir la función correspondiente y **asignarle un ID**. Todas las funciones de output mencionadas, tienen el parámetro: `outputId`. Este ID es obligatorio dado que luego lo necesitaremos para generar la visualización que queremos.

Adicionalmente, algunos output permiten pasarles parámetros de ancho y alto, entre otros.

```
page_fluid(
 
  layout_columns(dataTableOutput(outputId = "tabla1"),  
                 plotOutput(outputId = "grafico1", width = 100, height = 100)
                 )
  
 )

```
---

# Tags

<br>

En algunos casos querremos incluir elementos HTML estáticos como títulos o links, los cuales no requieren generarse mediante código de R. Para esto Shiny nos brinda funciones que son un atajo para las etiquetas HTML.

Con el objeto `tags` seguido del signo `$` podemos acceder a estas etiquetas.

page_fluid(
h1("Título 1"),
h2("Título 2"),
h3("Título 3"),
h4("Título 4"),
h5("Título 5"),
h6("Título 6"),

tags$iframe(src = "https://estacion-r.com/")
)
```
]

.pull-right[
<div class="container-fluid">
<h1>Título 1</h1>
<h2>Título 2</h2>
<h3>Título 3</h3>
<h4>Título 4</h4>
<h5>Título 5</h5>
<h6>Título 6</h6>
<iframe src="https://estacion-r.com/"></iframe>
</div>

]

---

# Inputs

---

# Inputs

<br>

Shiny posee un conjunto de *widgets* para ofrecer interactividad: se trata de elementos web que proveen al usuario la capacidad de mandar mensajes a la aplicación, y a la aplicación, de recibir consultas del usuario.

Fuente: https://shiny.posit.co/r/getstarted/shiny-basics/lesson3/

---

# Inputs

<br>

![](recursos/widgets.png)

---

# Inputs

<br>

Al igual que un output, un input se escribe con un llamado a la función correspondiente. Se debe **asignar un ID** y demás parámetros requeridos. Por ejemplo, para un selector con dos opciones de colores:

```
selectInput(inputId = "selectorColor", #obligatorio
            label = "Elegir color:", #obligatorio
            choices = c("Rojo","Azul"), #obligatorio
            selected = "Rojo",
            multiple = F)
```

![](recursos/selectInput.png)

---

# Inputs

<br>

Un *slider*:

```
sliderInput(inputId = "sliderNumero", #obligatorio
            label = "Número:", #obligatorio
            min = 1, #obligatorio
            max = 5, #obligatorio
            value = 3 #obligatorio
            )
```

![](recursos/sliderInput.png)

---

# Inputs

<br>

Recordemos que Shiny nos brinda funciones para que no tengamos que escribir el HTML, CSS o JS de estos widgets. Este es el código fuente de nuestro selector:

```
<div class="form-group shiny-input-container">
  <label class="control-label" id="selectorColor-label" for="selectorColor">Elegir color:</label>
  <div>
    <select id="selectorColor" class="shiny-input-select"><option value="Rojo" selected>Rojo</option>
<option value="Azul">Azul</option></select>
    <script type="application/json" data-for="selectorColor" data-nonempty="">{"plugins":["selectize-plugin-a11y"]}</script>
  </div>
</div>
```

<br>

**Nota**: corriendo nuestros inputs en consola o en un script podemos ver el código fuente que los genera

---

# Ejercicios

<br>

Con todo lo visto, crear un archivo de Shiny y escribir el código de una interfaz de usuario que tenga al menos:

<br>

- 2 secciones

- 2 outputs distintos

- 2 inputs distintos

- 2 textos

<br>

**Nota**: dejar el lado del server vacío
---

# Themes

---

# Themes

<br>

Si bien una app debe cumplir con el propósito de ser útil, el aspecto visual de la misma también es importante para orientar al usuario y causar un impacto positivo.

Además, a veces vamos a querer personalizar nuestra app para que se adecúe a parámetros estéticos propios o de nuestra organización (identidad de marca), con paletas de colores o fuentes predefinidas.

<br>

Tenemos tres caminos principales para modificar la estética de nuestra Shiny:

1. Utilizar un tema predefinido

2. Editar un tema predefinido

3. Crear nuestro propio tema

---

# Themes

<br>

Supongamos que tenemos esta funcional, pero poco atractiva, app:

![](recursos/basic_ui_no_theme.png)

https://gallery.shinyapps.io/064-telephones-by-region/

---

# Themes

<br>

Utilizando el paquete [`bslib`](https://rstudio.github.io/bslib/) podemos acceder rápidamente a algunos temas predefinidos de Bootstrap.

`page_fluid()` o `page_navbar()` tienen la opción de pasarle un `theme` que se aplicará a la app. Por ejemplo, `theme = bslib::bs_theme(preset = "superhero")` produce esta salida:

<br>

Nota: ver [`shinythemes`](https://rstudio.github.io/shinythemes/) para shiny base

---

# Themes

<br>

Podríamos modificar nuestro ggplot para que el fondo blanco no choque con el tema, pero por suerte el paquete [`thematic`](https://rstudio.github.io/thematic/index.html) hace esto por nosotros, agregando `thematic::thematic_shiny()` a nuestra app.

<br>

---

# Themes

<br>

El paquete brinda un widget para probar los temas en tiempo real, escribiendo en nuestro código:

- `bslib::bs_themer()` en algún lugar del server

<br>

---

# Themes

<br>

Aprovechando el widget de `bslib`, podemos jugar a cambiar colores y fuentes, para luego modificar los parámetros que querramos retocar de nuestro tema

```
bs_theme(bootswatch = "superhero",
  bg = "#0b3d91", 
  fg = "white"
)

```

o podemos crear nuestro propio tema

```
theme <- bs_theme(bg = "#202123", 
  fg = "#B8BCC2",
  primary = "#EA80FC", 
  secondary = "#48DAC6",
  base_font = c("Grandstander", "sans-serif"), ...
)

bs_theme_preview(theme)

```

---

# Themes

<br>

Si preferimos hacer algo aún más personalizado, tenemos la opción de crear nuestro un archivo CSS y pasárselo a nuestra app.

<br>

```css
body {
  background-color: red;
}
```

Nuestro código
```
fluidPage(

includeCSS("styles.css")
 
)
```
]

Nuestra salida
.pull-right[

![](recursos/basic_ui_css.png)

¡Claro que podemos hacer algo más lindo que poner el fondo rojo!
]

**Nota**: para casos puntuales podemos escribir CSS *inline* (ver https://shiny.posit.co/r/articles/build/css/)

---

# Ejercicio

<br>

1. Agregar un theme a la app previamente desarrollada

`theme_app/app.R`

---

# Recursos adicionales

<br>

Para consultar:

- [Blog UI con bslib](https://shiny.posit.co/r/articles/build/layout-guide/)

- [Mastering Shiny](https://mastering-shiny.org/index.html)

- [Cheatsheet de Shiny](https://rstudio.github.io/cheatsheets/shiny.pdf)

- [Outstanding User Interfaces with Shiny](https://unleash-shiny.rinterface.com/)

- [How To Make Your Shiny App Beautiful](https://www.appsilon.com/post/how-to-make-your-shiny-app-beautiful)

<br>

Para experimentar:

- [`designer`](https://ashbaldry.github.io/designer/)

- [`shinyUiEditor`](https://rstudio.github.io/shinyuieditor/)

- [`dashboardBuilder`](https://github.com/petergandenberger/dashboard-builder)

---

# Recursos adicionales

<br>

Para explorar:

- [`shinyWidgets` para más opciones](https://shinyapps.dreamrs.fr/shinyWidgets/)

- [`fresh` para crear temas](https://github.com/dreamRs/fresh/)

- [`imola` para Grid y Flexbox](https://www.anatomyofcode.com/imola/)

- [`shiny.fluent` para Microsoft UI](https://appsilon.github.io/shiny.fluent/index.html)

- [`lcars` para fans de Star Trek](https://github.com/leonawicz/lcars)

---

# Recapitulando

---

# Recapitulando

<br>

- Empezar por la UI es una buena forma de encarar un proyecto de Shiny ya que permite ordenarnos y pensar la lógica del server

<br>

- Una UI con un buen diseño puede marcar la diferencia en términos de impacto y usabilidad

<br>

- Los pasos (sugeridos) a seguir incluyen:

1. Elegir un framework de nuestro agrado
 2. Definir un layout general para estructurar el contenido
 3. Optar por inputs y outputs acordes a nuestra idea de app
 4. Tematizar nuestra app a gusto personal/organizacional
 5. Probar, repensar y ajustar

<br>

- Un siguiente paso es armar un prototipo de app, para lo cual conviene adentrarnos un poco en el lado del servidor