Exploring Titanic Survival Demographics with Shiny R

• Objective: Use Shiny R to enhance data exploration

• Technique: Combine a static chart with dynamic data sorting to stimulate analytical imagination. Created in RStudio version 1.0.44, with R version 3.3.2. Uses shiny, DT and vcd packages as well as Titanic dataset.

• Comments: Shinyio does not deploy the code completely and I can't figure it out. Therefore, the shinyio link will look incomplete.

• Next Steps: Develop strategy for building predictive models

library(shiny)
shinyUI(fluidPage(
  titlePanel("Titanic Passengers and Crew - Who Lived and Died?"),
  sidebarLayout(
    sidebarPanel(
      conditionalPanel(
        'inputdataset=="Titanic"',
        helpText('In the Data tab, click the column header to sort a column. Click the Plot tab to see the overall survival chart.')
      )
    ),
  mainPanel(
    tabsetPanel(
      tabPanel("Data", DT::dataTableOutput('Table1')),
      tabPanel("Plot", plotOutput("Plot1"))
    )))
))

library(shiny)
library(DT)
library(vcd)
shinyServer(function(input, output){
  #columns have colors attached cuz of CSS
  output$Table1 <- DT::renderDataTable({
    DT::datatable(as.data.frame(Titanic), options = list(orderClasses = TRUE,
                  lengthMenu = c(4, 8, 16, 32), pageLength = 8))
  }) 
  output$Plot1 <- renderPlot({
    strucplot(Titanic, spacing = spacing_highlighting, 
              labeling=labeling_left, 
              gp = gpar(fill = c("black","green")))
  })  
})