output$data <- renderPlot({
ggplot( mydata1(),aes(x= mydata1()$dateRep,y=mydata1()$input$variable1)) +geom_path(aes(mydata1()$dateRep))
}