---
title: "Shiny"
output: rmarkdown::html_vignette
vignette: >
  %\VignetteIndexEntry{Shiny}
  %\VignetteEngine{knitr::rmarkdown}
  %\VignetteEncoding{UTF-8}
---

```{r, include = FALSE}
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
```

## [A very simple shiny app](https://ignacio.shinyapps.io/shiny_vizdraws/)

```{r setup, eval=FALSE}
library(shiny)
library(shinydashboard)
library(glue)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(
    numericInput(
      "prior_mean",
      label = h3("Prior Mean"),
      value = 0,
      step = 0.1
    ),
    numericInput(
      "prior_sd",
      label = h3("Prior SD"),
      value = 1,
      min = 0.01,
      step = 0.1
    )
  ),
  dashboardBody(vizdraws::vizdrawsOutput('chart'))
)

server <- function(input, output) {
  output$chart <- vizdraws::rendervizdraws({
    vizdraws::vizdraws(
      prior = glue("N({input$prior_mean},{input$prior_sd})"),
      posterior = rnorm(1000, mean = 0.2, sd = 0.1),
      MME = 0.1,
      threshold = 0.7,
      display_mode_name = TRUE,
      title = "Shiny Example"
    )
  })
}

shinyApp(ui, server)
```

```{r iframe, echo=FALSE, out.width="100%"}
knitr::include_url("https://ignacio.shinyapps.io/shiny_vizdraws/", 
                   height = "450px")
```