From 42e30d8285fbb7dafb5484eb42efc0a2f2bd82ec Mon Sep 17 00:00:00 2001
From: fazelzadeh <parastoo.fazelzadeh@mpi-bn.mpg.de>
Date: Fri, 7 Jul 2017 11:18:28 +0200
Subject: [PATCH] Update JASON_UROPA_queries_V8.R

---
 JASON_UROPA_queries_V8.R | 11 ++---------
 1 file changed, 2 insertions(+), 9 deletions(-)

diff --git a/JASON_UROPA_queries_V8.R b/JASON_UROPA_queries_V8.R
index b0c9808..d7c7e9c 100644
--- a/JASON_UROPA_queries_V8.R
+++ b/JASON_UROPA_queries_V8.R
@@ -15,7 +15,6 @@ library(shinyBS)
 # Defining the parameters
 startpoint <- 1
 
-
 # User-defined functions
 
 JU_resformat <- function (var1, var2, var3, var4, var5, var6, var7, var8, distance_up, distance_down) {
@@ -80,9 +79,7 @@ PrintTablesUI <-  function(id, label = "ui1UI") {
               # bsTooltip("var3", "type attributes between quotation marks separated with comma",
                         # "right", options = list(container = "body")),
                sliderInput("distance_up", "distance_uptream", min = -10000, max = 10000, value = c(500)))
-        
-        
-        ,
+                        ,
         
         column(width = 6,
                selectInput("var7","strand",choices=c("+","-","both")),
@@ -93,8 +90,7 @@ PrintTablesUI <-  function(id, label = "ui1UI") {
            )    )
               
         )
-      
-  )
+       )
   )
 }
 
@@ -117,7 +113,6 @@ PrintTables <- function(input, output, session) {
 }
 
 
-
 #================================
 #
 # Program code
@@ -161,7 +156,6 @@ ui <- dashboardPage(
 
 
 
-
 server <- (function(input, output, session) {
   
   output$textORdate <- renderUI({
@@ -177,7 +171,6 @@ server <- (function(input, output, session) {
   
   
   
-
   # Print the tables (first module)
   observeEvent(input$addqueries, {