CausalImpact in Shiny

casualImpact_shiny.r

  
  ## in server.r of a shiny app
  casualImpactData <- reactive({
  
    ## only if we have the data ready
    validate(
      need(chartData(), "Need data")
      )
    
    data  <- chartData()
    
    ## from user input in ui.r
    start  <- input$range_date[1]
    end    <- input$range_date[2]
    event  <- input$event_date
    season <- as.numeric(input$season)
    
    ## setting up the necessary data for CausalImpact
    pre.period  <- as.Date(c(start, event))
    post.period <- as.Date(c(event + 1, end))
    
    ## doing the CausalImpact call and creating the model data
    CausalImpact(data, pre.period, post.period, model.args = list(nseasons = season))
     
  })