# This file is part of the WaveleT package
# Copyright 2015 2016 Lise Vaudor
# This program is distributed under the GPLv3 license
output$downloadDWT1 <- downloadHandler(
filename=function(){paste0("data_DWT_results_",fy1(),".csv")},
content=function(file){
mydata=mradata1()
write.table(mydata,
file,
sep=";",
row.names=FALSE)}
)
output$downloadDWT2 <- downloadHandler(
filename=function(){paste0("data_DWT_results_",fy2(),".csv")},
content=function(file){
mydata=mradata2()
write.table(mydata,
file,
sep=";",
row.names=FALSE)}
)
output$downloadDWT_superpose <- downloadHandler(
filename=function(){paste0("data_DWT_results_",fy1(),"_", fy2(),".csv")},
content=function(file){
mydata1=mradata1()
colnames(mydata1)=paste0(fy1(),"_",colnames(mydata1))
mydata2=mradata2()
colnames(mydata2)=paste0(fy2(),"_",colnames(mydata2))
mydata=data.frame(mydata1,mydata2)
write.table(mydata,
file,
sep=";",
row.names=FALSE)}
)
output$downloadFigDWT1 <- downloadHandler(
filename=function(){
name=paste0("modwt_mra_",fy1(),".",input$graph_format)
},
content=function(file){
fgraph=get(input$graph_format)
fgraph(file,width=input$width,height=input$height)
f_plotDWT1()
dev.off()
}
)
output$downloadFigDWT2 <- downloadHandler(
filename=function(){
name=paste0("modwt_mra_",fy2(),".",input$graph_format)
},
content=function(file){
fgraph=get(input$graph_format)
fgraph(file,width=input$width,height=input$height)
f_plotDWT2()
dev.off()
}
)
# ###############################################
output$downloadFigDWT_superpose <- downloadHandler(
filename=function(){
name=paste0("modwt_mra_",fy1(),"_",fy2(),".",input$graph_format)
},
content=function(file){
fgraph=get(input$graph_format)
fgraph(file,width=input$width,height=input$height)
f_plotDWT_superpose()
dev.off()
}
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.