inst/devel/ui-sketches/FimoDatabaseModelBuilder.R

In PriceLab/TrenaViz: TrenaViz

library(shiny)


#   the two main GATA2 enhancer/promotres, total of 31kb
tbl.region <- data.frame(chrom="chr3", start=128474310, end=128505841)
genomicRegionString <- with(tbl.region, sprintf("%s:%d-%d", chrom, start, end))


ui <- fluidPage(id="FimoDatabaseModelBuilderPageContent",
    includeCSS("../fimoDatabaseModelBuilder.css"),
    fluidRow(
        column(width=5, offset=1, id="fimoModelBuilderTitleBox",
          h4(id="fimoModeBuilder_title", "Build Gene Regulatory Model"),
          h4(id="fimoModelBuilder_currentTrenaProject", sprintf("trena project: %s", "Erythropoiesis")),
          h4(id="fimoModelBuilder_currentTargetene", sprintf("Target gene: %s", "GATA2")),
          h4(id="fimoModelBuilder_currentGenomicRegion", sprintf("In region: %s", genomicRegionString))
          )
        ),
    fluidRow(
       column(width=6,
          selectInput("expressionMatrixSelector", "Expression Matrix",  c("", "mtx1", "mtx2-with-very-very-long-name")),
          selectInput("tfbsTrackSelector", "Restrict TFs to those binding in track: ",
                      c("No restriction: all DNA in current region", "ATAC-seq", "GeneHancer"))
              ),
        column(width=5,
          sliderInput("fimoThresholdSelector", "FIMO motif match cutoff -log10(pVal)", 1, 10, value=4, step=0.1),
          sliderInput("tfCorrelationThreshold", "TF/targetGene expression min correlation", 0, 1, value=0.4, step=0.1),
          sliderInput("modelSizeSelector", "Regulatory model max size", 5, 200, value=10, step=1)
          )
        ),
    fluidRow(
       column(width=2, offset=0,
          actionButton("calculateActionButton", "Build Regulatory Model")
          )),
    fluidRow(
       column(width=2, offset=0, id="fubar",
          actionButton("viewNewModelButton", "View")
          ))

    ) # fluidPage

server <- function(input, output){}

runApp(shinyApp(ui, server))