27 lines
640 B
R
27 lines
640 B
R
library(shiny)
|
|
|
|
# Define UI for application that draws a histogram
|
|
shinyUI(fluidPage(
|
|
|
|
# Application title
|
|
titlePanel("Hello Shiny!"),
|
|
|
|
# Sidebar with a slider input for the number of bins
|
|
sidebarLayout(
|
|
sidebarPanel(
|
|
checkboxGroupInput('show_vars', 'Columns in dataset to show:',
|
|
names(emergency2013), selected = null)
|
|
),
|
|
|
|
# Show a summary table of the selected variables
|
|
|
|
|
|
mainPanel(
|
|
tabsetPanel(
|
|
id = 'dataset',
|
|
tabPanel('emergency2013', dataTableOutput('mytable1')),
|
|
tabPanel('scatterplot', plotOutput('distPlot'))
|
|
)
|
|
)
|
|
)
|
|
)) |