Nothing
output$t_shape <- renderPlot({
vdist_t_plot(input$t_df)
})
output$tprob_plot <- renderPlot({
vdist_t_prob(input$tprob_p, input$tprob_df, input$tprob_tail)
})
output$tperc_plot <- renderPlot({
vdist_t_perc(input$tperc_p, input$tperc_df, input$tperc_tail)
})
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.