Update JASON_UROPA_queries_V8.R

fazelzadeh · Jul 7, 2017 · bb85d31 · bb85d31
1 parent 32fa969
commit bb85d31
Showing 1 changed file with 10 additions and 10 deletions.
diff --git a/JASON_UROPA_queries_V8.R b/JASON_UROPA_queries_V8.R
@@ -72,21 +72,21 @@ PrintTablesUI <-  function(id, label = "ui1UI") {
         box(background = "light-blue",title= "JASON_UROPA_queries",
 
         column(width = 6,
-               textInput("var1","feature"),
-               textInput("var6","attribute.value"),
-               textInput("var5","filter.attribute"),
-               textInput("var3","show.attribute"),
+               textInput(ns("var1"),"feature"),
+               textInput(ns("var6"),"attribute.value"),
+               textInput(ns("var5"),"filter.attribute"),
+               textInput(ns("var3"),"show.attribute"),
               # 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)))
+               sliderInput(ns("distance_up"), "distance_uptream", min = -10000, max = 10000, value = c(500)))
                         ,
 
         column(width = 6,
-               selectInput("var7","strand",choices=c("+","-","both")),
-               selectInput("var2","feature.anchor",choices=c("start","center","end")),
-               selectInput("var4","internals",choices=c("none","center","any")),
-               selectInput("var8","direction",choices=c("any_direction","upstream","downstream")),
-               sliderInput("distance_down", "distance_upstream",min = -10000, max = 10000, value = c(500)
+               selectInput(ns("var7"),"strand",choices=c("+","-","both")),
+               selectInput(ns("var2"),"feature.anchor",choices=c("start","center","end")),
+               selectInput(ns("var4"),"internals",choices=c("none","center","any")),
+               selectInput(ns("var8"),"direction",choices=c("any_direction","upstream","downstream")),
+               sliderInput(ns("distance_down"), "distance_upstream",min = -10000, max = 10000, value = c(500)
            )    )
 
         )