mirror-github-bspeice/betterwithdata_cleaning_4
1
0
Fork 0
mirror of https://github.com/bspeice/betterwithdata_cleaning_4 synced 2024-12-04 13:18:10 -05:00
Code Issues Releases Wiki Activity

replaced plot with summary table

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
shiny-app/server.R
View File

@ -4,8 +4,10 @@ library(shiny)
shinyServer(function(input, output) { shinyServer(function(input, output) {
emergency2013 <- read.csv("./data/emergency2013.csv") emergency2013 <- read.csv("./data/emergency2013.csv")
output$distPlot <- renderPlot({ output$mytable1 <- renderDataTable({
library(ggplot2)
emergency2013[, input$show_vars, drop = FALSE]
plot(emergency2013$erdatemm, emergency2013$vstctgry)
}) })
}) })

6
shiny-app/ui.R
View File

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