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

Add tab for scatter plot

Browse Source
This commit is contained in:
geoffreyli 2015-11-07 13:46:54 -05:00
parent c62397ff21
commit ec2950779f
2 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
shiny-app/server.R
View File

@ -1,11 +1,16 @@
library(shiny)
library(ggplot2)
# Define server logic required to draw a histogram
shinyServer(function(input, output) {
emergency2013 <- read.csv("./data/emergency2013.csv")
output$distPlot <-renderPlot({
plot(emergency2013$duid, emergency2013$vstctgry)
})
output$mytable1 <- renderDataTable({
library(ggplot2)
emergency2013[, input$show_vars, drop = FALSE]

8
shiny-app/ui.R
View File

@ -10,14 +10,18 @@ shinyUI(fluidPage(
sidebarLayout(
sidebarPanel(
checkboxGroupInput('show_vars', 'Columns in dataset to show:',
names(emergency2013), selected = names(emergency2013))
names(emergency2013), selected = null)
),
# Show a summary table of the selected variables
mainPanel(
tabsetPanel(
id = 'dataset',
tabPanel('emergency2013', dataTableOutput('mytable1')))
tabPanel('emergency2013', dataTableOutput('mytable1')),
tabPanel('scatterplot', plotOutput('distPlot'))
)
)
)
))