inst/shinyApps/ui.R

In shwetagopaul92/visByGene: visByGene

########################
# Load the data
########################

data(named_metadata_tf)
data(encode690)

mypath1=system.file(package="visByGene","shinyApps/eQTL.csv")
eQTLdata=read.csv(mypath1,h=FALSE,stringsAsFactors=FALSE)
mypath2=system.file(package="visByGene","shinyApps/FP.csv")
fpdata=read.csv(mypath2,h=FALSE,stringsAsFactors=FALSE)
mypath3=system.file(package="visByGene","shinyApps/HS.csv")
hsdata=read.csv(mypath3,h=FALSE,stringsAsFactors=FALSE)
mypath4=system.file(package="visByGene","shinyApps/TF.csv")
tfdata=read.csv(mypath4,h=FALSE,stringsAsFactors=FALSE)

########################
# Define UI for the application
########################

shinyUI(fluidPage(
  
  titlePanel("visByGene"),
  sidebarLayout(position = "left",
                sidebarPanel(width=3,
                             selectInput("eQTL", "Select eQTL Collection", eQTLdata),
                             #actionButton("goButton", "Go!"),
                             #actionButton("addButton", "Add another eQTL"),
                             selectInput("fp", "Select FootPrint Collection", fpdata),
                             selectInput("hs", "Select Hypersensitivity Collection", hsdata),
                             selectInput("transcriptionFactor", "Select FIMO Transcription Factor Collection", tfdata),
                             selectInput("encodeTF", "Select Encode Transcription Factor",encode690$target ),
                             textInput("geneName", "Enter Gene of interest", value="ORMDL3")
                              
                ),
                
                
                mainPanel(
                  tabsetPanel(id="inTabset",
                              #tabPanel("Gene Model", value="panel1", plotlyOutput("ggPlot")),
                              tabPanel("eQTL Model", value="panel1", plotOutput("eqtlplot")),
                              tabPanel("Footprint Model", value="panel2", plotOutput("fpplot")),
                              tabPanel("DNAse Hypersensitivity Model", value="panel3", plotOutput("hsplot")),
                              tabPanel("FIMO TF Model", value="panel4", plotOutput("tfplot")),
                              tabPanel("Encode TF Model", value="panel5", plotOutput("tfgenePlot")),
                              #tabPanel("CEBPB binding nead ORMDL3", value="panel5", plotlyOutput("plotlySymbol")),
                              #tabPanel("ggplot", value="panel9", plotlyOutput("ggplot")),
                              tabPanel("visByGene", value="panel6", plotOutput("visByGene")),
                              tabPanel("TF Metadata",value="panel7", DT::dataTableOutput("mytable2"))
                              )
                  
                )
  )
)
)