Skip to content

Commit

Permalink
Only one graph is currently displayed
Browse files Browse the repository at this point in the history
  • Loading branch information
zkuralt committed Oct 6, 2017
1 parent d339ac3 commit 4742e1b
Show file tree
Hide file tree
Showing 2 changed files with 9 additions and 8 deletions.
1 change: 0 additions & 1 deletion app.R
Original file line number Diff line number Diff line change
Expand Up @@ -30,7 +30,6 @@ sidebar <- dashboardSidebar(
)
)


#### BODY ####
body <- dashboardBody(
tags$style(type = "text/css", "#map {height: 100% !important;}"),
Expand Down
16 changes: 9 additions & 7 deletions dynamic_ui.R
Original file line number Diff line number Diff line change
Expand Up @@ -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"))
)
})
}
Expand Down

0 comments on commit 4742e1b

Please sign in to comment.