From 64be5500f347a678c0b742e4f111af06e0020a72 Mon Sep 17 00:00:00 2001
From: Anjana Elapavalore <anjana.elapavalore@ext.uni.lu>
Date: Tue, 23 Jul 2019 10:50:08 +0200
Subject: [PATCH] Add pdf plotting functionality
* R/mix.R(presc.shiny): Added observeEvent, new server bits to plot
pdf.
---
R/mix.R | 9 ++++++++-
1 file changed, 8 insertions(+), 1 deletion(-)
diff --git a/R/mix.R b/R/mix.R
index 601ce65..c017285 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)
--
GitLab