Update JASON_UROPA_queries_V8.R

fazelzadeh · Jul 7, 2017 · 42e30d8 · 42e30d8
1 parent 9bc49cd
commit 42e30d8
Showing 1 changed file with 2 additions and 9 deletions.
diff --git 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, {