Update JASON_UROPA_queries_V9.R

fazelzadeh · Jul 7, 2017 · b41e5f0 · b41e5f0
1 parent dda8eca
commit b41e5f0
Showing 1 changed file with 3 additions and 17 deletions.
diff --git a/JASON_UROPA_queries_V9.R b/JASON_UROPA_queries_V9.R
@@ -1,6 +1,4 @@
 
-
-
 #================================
 #
 # Initialization
@@ -109,7 +107,6 @@ PrintTables <- function(input, output, session) {
   return(strinputvars)
 }
 
-
 #================================
 #
 # Program code
@@ -122,40 +119,31 @@ ui <- dashboardPage(
   dashboardHeader(title=div(img(src="site.logo.jpg"),"JASON_UROPA_queries")),
   dashboardSidebar(
     fluidRow(
-
-      column(width=12, 
+       column(width=12, 
              selectInput("species_GTF","select species",choices=c("mus musculus","homo sapiens")),
              radioButtons("gtf_files" ,"Select gtf file",
                           c("gencode.v22.genes.gtf"="human","gencode.vM5.genes.gtf"="mouse","other"="other")),
              uiOutput("textORdate"),
 
               #fileInput("gtf files","Upload gtf file (tab-separated)"),
              fileInput("file1", "Upload bed File")),
-
       column(width=12,
-
              selectInput("priority"," prioritized query",choices=c("FALSE","TRUE"))),
-
-
       column(width = 12,
              numericInput("NrQuery","Enter number of queries", 2, min=1, max=NaN),
              actionButton("addqueries", "Add Module"),
              actionButton("printres", "Print"))
 
       )), dashboardBody(
-
-
+
       div(id = "ui_zero"),
       div(id = "ui_zero2")
          )
 
 )
 
-
-
 server <- (function(input, output, session) {
-
-  output$textORdate <- renderUI({
+    output$textORdate <- renderUI({
     #validate(
     #   need(!is.null(input$gtffiles), "please select a input type")
     # )
@@ -166,8 +154,6 @@ server <- (function(input, output, session) {
     }
   })
 
-
-
   # Print the tables (first module)
   observeEvent(input$addqueries, {