diff --git a/R/mix.R b/R/mix.R
index 601ce65f6fa6cbf4e77d7c24b5d9087b78624299..c017285e0a34c9929c16cc465515e526a6f97d4f 100644
--- a/R/mix.R
+++ b/R/mix.R
@@ -723,7 +723,14 @@ presc.shiny <-function(wd,mode,pal="Dark2",cex=0.75,rt_digits=2,m_digits=4){
             i=input$idslider
         })
 
-        shiny::observeEvent(input$saveplot,{message("Value is: ",input$saveplot)})
+        shiny::observeEvent(input$saveplot,{
+            fn <- paste("plotCpdID_",i,".pdf",sep='')
+            i=input$idslider
+            rtrange <- c(input$min_val,input$max_val)
+            pdf(file=fn, width=12, height=8)
+            plotall(i,rtrange=clean_rtrange(rtrange))
+            dev.off()
+        })
     }
     
     shiny::shinyApp(ui = ui, server = server)