Nothing
pp_hists_rep_vs_obs <- reactive({
pp_tests()
validate(need(input$pp_hists_rep_vs_obs_type, message = "Loading..."))
y <- get_y()
yrep <- get_yrep()
sample_ids <- sample_ids_for_hist()
yrep_samp <- yrep[sample_ids, ]
rownames(yrep_samp) <- paste("yrep", sample_ids)
geom <- input$pp_hists_rep_vs_obs_type
if (geom == "density" & input$pp_hists_rep_vs_obs_overlay == TRUE) {
x_lim <- range(c(y, yrep))
out <- do.call(".pp_dens_rep_vs_obs", args = list(
y = y,
yrep_samp = yrep_samp,
x_lim = x_lim
))
return(out)
}
graphs <- .pp_hists_rep_vs_obs(y = y, yrep_samp = yrep_samp, geom = geom)
suppressMessages(do.call(gridExtra::grid.arrange, c(graphs, ncol = 3)))
})
output$pp_hists_rep_vs_obs_out <- renderPlot({
pp_hists_rep_vs_obs()
}, bg = "transparent")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.