diff --git a/JASON_UROPA_queries_V9.R b/JASON_UROPA_queries_V9.R
index ca7367e..0498f92 100644
--- 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,8 +119,7 @@ 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")),
@@ -131,31 +127,23 @@ ui <- dashboardPage(
              
               #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, {