library(shiny)
library(shinyExt)
# Define UI for dataset viewer application
shinyUI(pageWithSidebar(
# Application title
headerPanel("Reactivity"),
# Sidebar with controls to provide a caption, select a dataset, and
# specify the number of observations to view. Note that changes made
# to the caption in the textInput control are updated in the output
# area immediately as you type
sidebarPanel(
actionButton("btn_newSample","Generate new sample"),
textInput("caption", "Caption:", "Data Summary"),
passwordInput("passwd", "Password:"),
selectInput("dataset", "Choose a dataset:",
choices = c("rock", "pressure", "cars")),
numericInput("obs", "Number of observations to view:", 10),
daterangePicker("input_period", "Select a range period:")
),
# Show the caption, a summary of the dataset and an HTML table with
# the requested number of observations
mainPanel(
tabsetPanel(
tabPanel("Plot", plotOutput("plot")),
tabPanel("Summary",
h3(textOutput("caption")),
br(),
verbatimTextOutput("summary")
),
tabPanel("Table",
downloadLink('downloadData'),
tableOutput("view")
),
tabPanel("Secret",
textOutput("pwd"),
br(),
textOutput("filter_date2"))
)
)
))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.