library(shiny) # Define UI for dataset viewer application fluidPage( # Application title. titlePanel("More Widgets"), # Sidebar with controls to select a dataset and specify the # number of observations to view. The helpText function is # also used to include clarifying text. Most notably, the # inclusion of an actionButton defers the rendering of output # until the user explicitly clicks the button (rather than # doing it immediately when inputs change). This is useful if # the computations required to render output are inordinately # time-consuming. sidebarLayout( sidebarPanel( selectInput("dataset", "Choose a dataset:", choices = c("rock", "pressure", "cars")), numericInput("obs", "Number of observations to view:", 10), helpText("Note: while the data view will show only the specified", "number of observations, the summary will still be based", "on the full dataset."), actionButton("update", "Update View") ), # Show a summary of the dataset and an HTML table with the # requested number of observations. Note the use of the h4 # function to provide an additional header above each output # section. mainPanel( h4("Summary"), verbatimTextOutput("summary"), h4("Observations"), tableOutput("view") ) ) )
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.