replaced plot with summary table

This commit is contained in:
Aron Lindberg
2015-11-07 12:37:27 -05:00
parent b21bd11eaa
commit c62397ff21
2 changed files with 8 additions and 4 deletions

View File

@ -13,9 +13,11 @@ shinyUI(fluidPage(
names(emergency2013), selected = names(emergency2013))
),
# Show a plot of the generated distribution
# Show a summary table of the selected variables
mainPanel(
plotOutput("distPlot")
tabsetPanel(
id = 'dataset',
tabPanel('emergency2013', dataTableOutput('mytable1')))
)
)
))