gistfile1.txt

graphInput = reactive({
    if (input$lineG == "total") {
      line = total_fatal
    }
    if (input$lineG == 'drunk') {
      line = dd_fatal
    }
    if (input$lineG == 'distract') {
      line = distract_fatal
    }
    if (input$lineG == 'speeding') {
      line = speeding_fatal
    }
    line = line[line$YEAR >= input$lineRange[1] & line$YEAR <= input$lineRange[2],]
    })
  output$trendPlot = renderPlotly({
    
    p = plot_ly(graphInput(), x = YEAR, y = FATALS)
    layout(p, yaxis = list(range = c(0, 50000)),autotick = F)
    
})