inst/shinyHappyPeople/ui.R

In YTLogos/ensembldb: Utilities to create and use Ensembl-based annotation databases

library(shiny)
## start with runApp("jo_test")

shinyUI(fluidPage(

    ## Application title
    titlePanel("Get gene/transcript/exon annotations"),

    fluidRow(
        shiny::column(3,
                      uiOutput("packages")
                      ),
        shiny::column(3,
                      ##                    div(
                      h4("EnsDb annotation:"),
                      textOutput("metadata_organism"),
                      textOutput("metadata_ensembl"),
                      textOutput("metadata_genome"),
                      " "
                      ##                    )
                      ),
        shiny::column(4,
                      h4("Hints:"),
                      tags$li("Enter comma or whitespace separated values to search for multiple e.g. genes."),
                      tags$li("Use % and condition like for partial matching."))
    ),
    fluidRow(
        shiny::column(4,
                      " "
                      )
    ),
    fluidRow(
        shiny::column(2,
                      selectInput("type", NA,
                                  choices=c("Gene name", "Chrom name",
                                            "Gene biotype", "Tx biotype"),
                                  selected="Gene name")
                      ),
        shiny::column(1,
                      selectInput("condition", NA,
                                  choices=c("=", "!=", "like", "in"),
                                  selected="=")
                      ),
        shiny::column(2,
                      textInput("geneName", NA, value="")
                      )
    ),
    fluidRow(
        mainPanel(
            tabsetPanel(
                tabPanel('Genes',
                         dataTableOutput("Genes")
                         ),
                tabPanel('Transcripts',
                         dataTableOutput("Transcripts")
                         ),
                tabPanel('Exons',
                         dataTableOutput("Exons")
                         )
                , id="resultTab"
            )
        )
    ),
    wellPanel(
        fluidRow(
            shiny::column(2,
                          "Return results as "
                          ),
            shiny::column(2,
                          selectInput("returnType", NA,
                                      choices=c("data.frame", "GRanges"),
                                      selected="data.frame")
                          ),
            shiny::column(2,
                          actionButton("closeButton", "Return & close")
                          )
        )
    )
))



## shinyUI(fluidPage(

##             ## Application title
##             titlePanel("Get gene/transcript/exon annotations"),

##             fluidRow(
##                 shiny::column(3,
##                               uiOutput("packages")
##                               ),
##                 shiny::column(3,
##                               ##                    div(
##                               h4("EnsDb annotation:"),
##                               textOutput("metadata_organism"),
##                               textOutput("metadata_ensembl"),
##                               textOutput("metadata_genome"),
##                               " "
##                               ##                    )
##                               ),
##                 shiny::column(4,
##                               h4("Hints:"),
##                               tags$li("Enter comma or whitespace separated values to search for multiple e.g. genes."),
##                               tags$li("Use % and condition like for partial matching."),
##                               tags$li("The selected database is assigned to the environment variable ENS_DB."))
##             ),
##             fluidRow(
##                 shiny::column(4,
##                               " "
##                               )
## ##                )
##             ),
##             fluidRow(
##                 shiny::column(2,
##                               selectInput("type", NA,
##                                           choices=c("Gene name", "Chrom name",
##                                                     "Gene biotype", "Tx biotype"),
##                                           selected="Gene name")
##                               ),
##                 shiny::column(1,
##                               selectInput("condition", NA,
##                                           choices=c("=", "!=", "like", "in"),
##                                           selected="=")
##                               ),
##                 shiny::column(2,
##                               textInput("geneName", NA, value="")
##                               ),
##                 ## shiny::column(2,
##                 ##               submitButton("Go!")
##                 ##               ),
##                 shiny::column(2,
##                               actionButton("closeButton", "Return result")
##                               )
##             ),
##             ## fluidRow(
##             ##     mainPanel(
##             ##         tabsetPanel(
##             ##             tabPanel('Genes',
##             ##                      dataTableOutput("Genes")
##             ##                      ),
##             ##             tabPanel('Transcripts',
##             ##                      dataTableOutput("Transcripts")
##             ##                      ),
##             ##             tabPanel('Exons',
##             ##                      dataTableOutput("Exons")
##             ##                      )
##             ##         )
##             ##         ##h4(textOutput("genename"))
##             ##     )
##             ## )
##         ))