Commit 7912764e authored by Bagueneau Mathias's avatar Bagueneau Mathias
Browse files

- Ajout du jeux de données 8kpbmc

parent 9c9428e1
......@@ -74,7 +74,7 @@ sidebar <- dashboardSidebar(
uiOutput("group"), br(),
radioButtons("gographtype", label="Choose a graph type :", choices=c("Dotplot"="dplot", "Barplot"="bplot", "Emapplot" = "eplot")), br(),
radioButtons("ontology", label="Choose an ontology :", choices=c("Biological Process"="BP", "Molecular Function"="MF", "Cellular Component" = "CC")), br(),
br(), actionButton("gogo", icon = icon("far fa-arrow-alt-circle-right"), label="Do Gene Ontology")
actionButton("gogo", icon = icon("far fa-arrow-alt-circle-right"), label="Do Gene Ontology")
)
)
)
......@@ -156,7 +156,8 @@ sidebar <- dashboardSidebar(
radioButtons(inputId="graph_grid", label= "Choose the graph mode :", c("t-SNE" = "tsne", "UMAP" = "umap")),
sliderInput(inputId="ptsize_grid", label="Point size :", min=0.1, max=2, step=0.1, value = 0.6, ticks = FALSE),
hr(),
selectizeInput(inputId="listminigenes", label="Choose a gene :", choices ="", multiple = TRUE)
selectizeInput(inputId="listminigenes", label="Choose a gene :", choices ="", multiple = TRUE), br(),
uiOutput("dlgrid")
)
)
)
......@@ -470,7 +471,7 @@ server <- function(input, output, session) {
}
})
## 9 Grid Genes Miniplots Generation & Outputs --------
## Grid Genes Miniplots Generation & Outputs --------
output$minigenes <- renderPlot({
req(wrfile())
......@@ -741,6 +742,23 @@ server <- function(input, output, session) {
}
)
output$dlgrid <- renderUI ({ # Grid Page
req(gridData() != "")
downloadButton("dlminiplots_grid", label="")
})
output$dlminiplots_grid <- downloadHandler( # Grid Page
filename = function() {
paste0(file_path_sans_ext(filedata$name),"_gridplot_",input$graph_grid,".svg")
},
content = function(file) {
svg(file)
print(gridData())
dev.off()
}
)
## Information Visualize text --------
output$information <- renderUI({
req(wrfile())
......
File added
Markdown is supported
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