knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
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)
knitr::include_url("https://ignacio.shinyapps.io/shiny_vizdraws/", height = "450px")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.