Skip to content
Snippets Groups Projects
Commit 2413c16f authored by Jessy Krier's avatar Jessy Krier
Browse files

Saving the plots with new name. 

* R/mix.R(presc.shiny): A new textInput to be able to change the name
  from the default one.
parent 64be5500
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 35 additions and 43 deletions
R/mix.R
+ 35
− 43
View file @ 2413c16f
...@@ -557,50 +557,43 @@ presc.shiny <-function(wd,mode,pal="Dark2",cex=0.75,rt_digits=2,m_digits=4){ ...@@ -557,50 +557,43 @@ presc.shiny <-function(wd,mode,pal="Dark2",cex=0.75,rt_digits=2,m_digits=4){
shinydashboard::dashboardBody( shinydashboard::dashboardBody(
shiny::fluidRow( shiny::fluidRow(
shinydashboard::box( shinydashboard::box(
title = "MS Prescreening", width = 6, height = "80px", background = "blue", "" title = "MS Prescreening", width = 8, height = "80px", background = "blue", ""
), ),
shinydashboard::box( shinydashboard::box(
title = "Compound ID N°",width = 6, height = "80px", background = "olive", title = "Compound ID N°",width = 4, height = "80px", background = "olive",
shiny::textOutput("compoundID") shiny::textOutput("compoundID")
) )
), ),
shiny::fluidRow( shiny::fluidRow(
shinydashboard::box( shinydashboard::box(
title = "Plot", width = 6, solidHeader = TRUE, collapsible = TRUE, title = "Plot", width = 8, solidHeader = TRUE, collapsible = TRUE,
shiny::plotOutput("plot1", width = "100%", height = "900px", click = NULL, shiny::plotOutput("plot1", width = "100%", height = "750px", click = NULL,
dblclick = NULL, hover = NULL, hoverDelay = NULL, dblclick = NULL, hover = NULL, hoverDelay = NULL,
hoverDelayType = NULL, brush = NULL, clickId = NULL, hoverDelayType = NULL, brush = NULL, clickId = NULL,
hoverId = NULL), hoverId = NULL),
shinydashboard::box( shiny::textInput("plotname", "Insert plot name:",value="plotCpdID_%i.pdf"),
shiny::actionButton("saveplot", "Save", icon = icon("save")) shiny::actionButton("saveplot", "Save", icon = shiny::icon("save"))
),
)
),
shinydashboard::box( shinydashboard::box(
title = "Compounds", solidHeader = TRUE, collapsible = TRUE, "", shiny::br(), title = "Compounds", width=4,solidHeader = TRUE, collapsible = TRUE, "", shiny::br(),
shiny::sliderInput("idslider", "Compound number:", idsliderrange[1], idsliderrange[2], value=1,step=1) shiny::sliderInput("idslider", "Compound number:", idsliderrange[1], idsliderrange[2], value=1,step=1)
), ),
shinydashboard::box( shinydashboard::box(
title = "Plot x axis range", width = 3, solidHeader = TRUE, collapsible = TRUE, title = "Plot x axis range", width = 4, solidHeader = TRUE, collapsible = TRUE,
shiny::numericInput("min_val", "Minimum x Axis Value", default_min_rt), shiny::numericInput("min_val", "Minimum x Axis Value", default_min_rt),
shiny::numericInput("max_val", "Maximum x Axis Value", default_max_rt) shiny::numericInput("max_val", "Maximum x Axis Value", default_max_rt)
), ),
shinydashboard::box( shinydashboard::box(
title = "Prescreening Results", width = 3, solidHeader = TRUE, collapsible = TRUE, title = "Prescreening Results", width = 4, solidHeader = TRUE, collapsible = TRUE,
shiny::checkboxGroupInput("variable", "Checkboxes:", shiny::checkboxGroupInput("variable", "Checkboxes:",
c("MS1" = "MS1 present", c("MS1" = "MS1 present",
"MS2" = "MS2 present", "MS2" = "MS2 present",
"Alignment" = "Alignment MS1/MS2", "Alignment" = "Alignment MS1/MS2",
"Intensity" = "Intensity is good", "Intensity" = "Intensity is good",
"Noise" = "MS is noisy")), "Noise" = "MS is noisy")),
shiny::textInput("text", "Comments:"), shiny::textAreaInput("caption", "Comments:", "Insert your comment here..."),
shiny::tableOutput("data") shiny::verbatimTextOutput("value")
) )
),
shiny::fluidRow(
shinydashboard::box(
title = "Chemical structure", width = 6, solidHeader = TRUE, collapsible = TRUE)
) )
) )
) )
...@@ -708,24 +701,23 @@ presc.shiny <-function(wd,mode,pal="Dark2",cex=0.75,rt_digits=2,m_digits=4){ ...@@ -708,24 +701,23 @@ presc.shiny <-function(wd,mode,pal="Dark2",cex=0.75,rt_digits=2,m_digits=4){
}) })
} }
) )
## output$downloadPlot <- shiny::downloadHandler(
## filename = function() {'test.pdf'}, output$value <- renderText(
## content = function(file){
## pdf(file=file, width=12, height=8, out.type="pdf")
## i=input$idslider
## rtrange <- c(input$min_val,input$max_val)
## plotall(i,rtrange=clean_rtrange(rtrange))
## dev.off()
## },
## contentType=NULL)
output$compoundID <- renderText(
{ {
i=input$idslider input$caption
}) })
output$compoundID <- renderText(
{
i=input$idslider
})
shiny::observeEvent(input$saveplot,{ shiny::observeEvent(input$saveplot,{
fn <- paste("plotCpdID_",i,".pdf",sep='')
i=input$idslider i=input$idslider
pfn <-input$plotname
if (is.na(pfn)) pfn <- "plotCpdID_%i.pdf"
fn <- sprintf(pfn,i)
rtrange <- c(input$min_val,input$max_val) rtrange <- c(input$min_val,input$max_val)
pdf(file=fn, width=12, height=8) pdf(file=fn, width=12, height=8)
plotall(i,rtrange=clean_rtrange(rtrange)) plotall(i,rtrange=clean_rtrange(rtrange))
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment