Skip to content
Snippets Groups Projects
Commit 64be5500 authored by Anjana Elapavalore's avatar Anjana Elapavalore
Browse files

Add pdf plotting functionality

* R/mix.R(presc.shiny): Added observeEvent, new server bits to plot
  pdf.
parent 6f423ec6
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment