model_data = budworm.lg$model
ids = names(budworm.lg$model )
shinyUI(fluidPage(
uiOutput("ui"),
verbatimTextOutput(ids[1]),
verbatimTextOutput(ids[2]),
verbatimTextOutput(ids[3]),
verbatimTextOutput('df')
)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.