# reactive function to get samples for a single parameter
par_samps_all <- reactive({
param <- input$param
p <- which(PARAM_NAMES == param)
SAMPS_all[, , p]
})
par_samps_post_warmup <- reactive({
param <- input$param
p <- which(PARAM_NAMES == param)
SAMPS_post_warmup[, , p]
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.