update (not sure what :) )

Author: rolina

shiny_timeseries/server.R

@@ -1,27 +1,30 @@
 library(shiny)
+library("linelist2ts")
+data(hagelloch.obk)
+df <- hagelloch.obk@individuals
 
 # Define server logic required to draw a histogram
 shinyServer(function(input, output) {
-  
+
   # Expression that generates a histogram. The expression is
   # wrapped in a call to renderPlot to indicate that:
   #
   #  1) It is "reactive" and therefore should re-execute automatically
   #     when inputs change
   #  2) Its output type is a plot
-  
-  
+
+
   output$distPlot <- renderPlot({
     date.min <- as.Date(input$range[1], origin = "1970-01-01")
     date.max <- as.Date(input$range[2], origin = "1970-01-01")
-    
+
     if (input$var != "all") sex = input$var
     if (input$var == "all") sex = c("male", "female")
-    
+
     if (input$var2 == "days") incidence.title = "Daily"
     if (input$var2 == "weeks") incidence.title = "Weekly"
     if (input$var2 == "months") incidence.title = "Monthly"
-    
+
     # draw the histogram with the specified number of bins
     hist(subset(df, (date.min<=ERU & ERU<=date.max & SEX %in% sex))$ERU, breaks = input$var2, start.on.monday=FALSE, col = 'skyblue', border = 'white',
          xlab=paste(incidence.title,"incidence",sep=" "), main="")

shiny_timeseries/ui.R

@@ -1,40 +1,43 @@
 library(shiny)
+library("linelist2ts")
+data(hagelloch.obk)
+df <- hagelloch.obk@individuals
 
 # Define UI for application that draws a histogram
 shinyUI(fluidPage(
-  
+
   # Application title
   titlePanel("Interactive time series"),
-  
+
   # Sidebar with a slider input for the number of bins
   sidebarLayout(
     sidebarPanel(
-      
-      selectInput("var", 
+
+      selectInput("var",
                   label = "Sex:",
                   choices = c("all", "male", "female"),
                   selected = "all"),
-      
-      selectInput("var2", 
+
+      selectInput("var2",
                   label = "Break by:",
                   choices = c("days", "weeks", "months"),
                   selected = "weeks"),
-        
+
       sliderInput("range",
                   "Dates:",
                   min = as.numeric(min(df$ERU)),
                   max = as.numeric(max(df$ERU)),
                   #format = '_locale.date.format', #'M/d/yyyy h:mm a', animate=TRUE,
                   #dateInput("ana", "Choose a date:", value = min(df$ERU)),
                   value = c(as.numeric(min(df$ERU)),as.numeric(max(df$ERU)))),
-      
+
       dateInput("ana", "Choose a date:", value = min(df$ERU))
-      
+
     ),
-    
+
     # Show a plot of the generated distribution
     mainPanel(
-      
+
       singleton(tags$head(HTML(
         '
   <script type="text/javascript">
@@ -48,14 +51,14 @@ shinyUI(fluidPage(
         var ref_date = new Date("2014-07-01");
         // each slider step is 1 day, translating to 24 * 3600 * 1000 milliseconds
         var slider_date = new Date(ref_date.getTime() + value * 24 * 3600 * 1000);
-        return [slider_date.getUTCFullYear(), 
-                slider_date.getUTCMonth() + 1, 
+        return [slider_date.getUTCFullYear(),
+                slider_date.getUTCMonth() + 1,
                 slider_date.getUTCDate()].join("-");
       }
     })
   </script>
   '))),
-      
+
       plotOutput("distPlot")
     )
   )