ui.r

library(shiny)
library(shinythemes) 
shinyUI(navbarPage( 
                    tabPanel(h6("RegionsInfoPlot Shiny APP"),  
                             
                             h5("Regions information Plot"),
                             sidebarLayout( 
                               
                               sidebarPanel( 
                                 h3("Which group?"),
                                 radioButtons("group", 
                                              label = h3(""), 
                                              choices = list("Sample" = 1, 
                                                             "Chromosome" = 2
                                              ),
                                              selected = 1),
                                 h3("Which statistic?"),
                                 radioButtons("stat", 
                                              label = h3(""), 
                                              choices = list("Mean" = 1, 
                                                             "Median" = 2
                                              )
                                              ,
                                              selected = 1),
                                 submitButton(h4("Query"))
                               ),                                   
                               
                               mainPanel( 
                                 tabsetPanel( 
                                   tabPanel("Information Plot", plotOutput("plot"))
                                 )) 
                            ))  
))
yiqiutang/genomeRegionsInfo documentation built on May 14, 2019, 4:04 a.m.