gistfile1.txt

tabPanel("Year Over Year",
           sidebarLayout(
             sidebarPanel(h3("Yearly Fatality Rate"), style = "width:300px",
                          helpText("This graph displays the yearly changes in driving fatalities. You can customize this graph by viewing subsets of the total deaths related to drunk driving, distracted driving, or speeding."),
                          br(),
                          radioButtons("lineG", h4("Filters"), choices = 
                                               list("Total" = 'total', "Drunk" = 'drunk', "Distracted" = 'distract', "Speeding" = 'speeding'), selected = "Total"),
                          br(),
                          sliderInput("lineRange", h4("Years of Interest:"), sep = "",
                                      min = 1999, max = 2014, value = c(1999, 2014))
                          ),
             mainPanel(style="position:relative",
                       h3("Driving Fatalities", style="margin:20px; margin-left:200px;  z-index:100; position:absolute"),
                       br(),
                       br(),
                       plotlyOutput("trendPlot"),
                       htmlOutput("plotP", style="margin-left:-100px; margin-top:-80px")
             )
             )