From bb85d31bda76c603001252513a8e896e4b5c3fda Mon Sep 17 00:00:00 2001 From: fazelzadeh Date: Fri, 7 Jul 2017 13:51:23 +0200 Subject: [PATCH] Update JASON_UROPA_queries_V8.R --- JASON_UROPA_queries_V8.R | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/JASON_UROPA_queries_V8.R b/JASON_UROPA_queries_V8.R index d7c7e9c..172eea9 100644 --- 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) ) ) )