Visor de genes.

scMonitor/app.R

@@ -13,11 +13,15 @@ ui <- fluidPage(
         sidebarPanel(
           shinyFilesButton("file", label="Select File", title="Select a Seurat Object", multiple=F),
           uiOutput('groupby'),
-          uiOutput('facetby')
+          uiOutput('facetby'),
+          textInput('features', label = "Genes"),
+          actionButton("goButton", "Query"),
+          sliderInput("height", "Altura", min=1000, max=20000, step=1000, value=6000)
         ),
 
         mainPanel(
-           plotOutput("umapPlot")
+           plotOutput("umapPlot"),
+           uiOutput("featPlotUI")
         )
     )
 )
@@ -48,6 +52,10 @@ server <- function(input, output) {
     }
   })
   
+  query<-eventReactive(input$goButton,{
+    dades$fet_query<-strsplit(input$features, " ")[[1]]
+  })
+  
   output$umapPlot <- renderPlot({
     observeEvent(dades$seu, {})
     if (!is.null(dades$seu)){
@@ -57,7 +65,25 @@ server <- function(input, output) {
                   split.by=if(input$facetby != "None"){input$facetby}else{NULL})+
       theme(aspect.ratio=1)
     plot
+    }
+  })
 
+  output$featPlotUI<- renderUI({
+    observeEvent(dades$fet_query, {})
+    if (!is.null(dades$seu)){
+      plotOutput("featPlot", 
+                 height = paste0(input$height/10,"px"))
+    }
+  })
+  
+  output$featPlot<-renderPlot({
+    observeEvent(dades$seu, {})
+    if (!is.null(dades$seu)){
+      query()
+      
+      FeaturePlot(dades$seu,
+                  split.by=if(input$facetby != "None"){input$facetby}else{NULL},
+                  features = dades$fet_query)&theme(aspect.ratio = 1)
     }
   })
 }