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

Customize datasets

Browse Source
This commit is contained in:
geoffreyli 2015-11-07 16:36:45 -05:00
parent 2627c1d12f
commit 0a09137353
2 changed files with 30 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
shiny-app/server.R
View File

@ -3,26 +3,46 @@ library(ggplot2)
# Define server logic required to draw a histogram
shinyServer(function(input, output) {
#datasets <- list.files('./data/')
emergency2013 <- read.csv("./data/emergency2013.csv")
output$fileSelect <- renderUI({
selectInput("dataSetInput", "Choose your survey:", list.files('./data/'))
})
#currentDataset <- read.csv(paste0('./data/', input$dataSetInput))
output$columnList <- renderUI({
currentDataset <- read.csv(paste0('./data/', input$dataSetInput, sep=''))
checkboxGroupInput('show_vars', 'Columns in dataset to show:', names(currentDataset), selected = NULL)
})
output$distPlot <- renderPlot({
plot(emergency2013$duid, emergency2013$vstctgry)
currentDataset <- read.csv(paste0('./data/', input$dataSetInput, sep=''))
plot(currentDataset$duid, currentDataset$vstctgry)
})
output$mytable1 <- renderDataTable({
emergency2013[, input$show_vars, drop = FALSE]
currentDataset <- read.csv(paste0('./data/', input$dataSetInput, sep=''))
currentDataset[, input$show_vars, drop = FALSE]
})
output$mytable2 <- renderDataTable({
summary(emergency2013[, input$show_vars, drop = FALSE])
currentDataset <- read.csv(paste0('./data/', input$dataSetInput, sep=''))
summary(currentDataset[, input$show_vars, drop = FALSE])
})
output$myplot <- renderPlot({
currentDataset <- read.csv(paste0('./data/', input$dataSetInput, sep=''))
library(ggplot2)
library(corrplot)
pairs(emergency2013[, input$show_vars, drop = FALSE])
pairs(currentDataset[, input$show_vars, drop = FALSE])
emergency2013[, input$show_vars, drop = FALSE]
currentDataset[, input$show_vars, drop = FALSE]
})
})

8
shiny-app/ui.R
View File

@ -5,11 +5,13 @@ 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)),
uiOutput('fileSelect'),
uiOutput('columnList')
),
# Show a summary table of the selected variables
mainPanel(
tabsetPanel(
@ -20,4 +22,4 @@ shinyUI(fluidPage(
)
)
)
)
)