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){ ...@@ -723,7 +723,14 @@ presc.shiny <-function(wd,mode,pal="Dark2",cex=0.75,rt_digits=2,m_digits=4){
i=input$idslider 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) 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