From 4742e1beaae0a6755ff07e34cbb7c4ae44957a54 Mon Sep 17 00:00:00 2001
From: Zan Kuralt <zan.kuralt@gmail.com>
Date: Sat, 7 Oct 2017 00:24:18 +0200
Subject: [PATCH] Only one graph is currently displayed

---
 app.R        |  1 -
 dynamic_ui.R | 16 +++++++++-------
 2 files changed, 9 insertions(+), 8 deletions(-)

diff --git a/app.R b/app.R
index 40a9b85..21148f2 100644
--- a/app.R
+++ b/app.R
@@ -30,7 +30,6 @@ sidebar <- dashboardSidebar(
   )
 )
 
-
 #### BODY ####
 body <- dashboardBody(
   tags$style(type = "text/css", "#map {height: 100% !important;}"),
diff --git a/dynamic_ui.R b/dynamic_ui.R
index 1ece169..5fae33a 100644
--- a/dynamic_ui.R
+++ b/dynamic_ui.R
@@ -148,18 +148,20 @@ observe({
   if(nrow(xy) > 0) {
     output$sps <- renderPlot({
       ggplot(xy)  +
+        theme_bw() +
         geom_bar(aes(sample_type))
     })
-    output$opp <- renderPlot({
-      ggplot(par) +
-        geom_bar(aes(offspring))
-    })
+    # output$opp <- renderPlot({
+    #   ggplot(par) +
+    #     theme_bw() +
+    #     geom_col(aes(x = unique(c(mother, father), y = offspring)))
+    # })
     output$graphs <- renderUI({
       fluidRow(
         box(solidHeader = TRUE, title = "Samples per sample type",
-            plotOutput("sps")),
-        box(solidHeader = TRUE, title = "Number of offspring per parent",
-            plotOutput("opp"))
+            plotOutput("sps"))
+        # box(solidHeader = TRUE, title = "Number of offspring per parent",
+        #     plotOutput("opp"))
       ) 
     })
   }