subsetToBaseDate<-function(input){
binded<-data.frame(employment=input$employment,monthCounter=input$empl_monthCounter)
binded<-binded[binded$monthCounter<=input$base_date,]
input$employment<-binded$employment;input$empl_monthCounter<-binded$monthCounter
input
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.